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CAMELOT WARRIORS 

El misterio, la fantasia y la ms so sticad. 
tcnica en diseho grfico ban hecho posible 
este clsico de DINAMIC. 
Camelot Warriors. Imaginacidn sin Ifmite 

,,- y 
, ,., OLE, TORO 
 Tres elementos se da ita e -1 "to d- 1. 
" " _ I arena: la vida, la muerte y el arte. Ole, 
 I Tore. Originalidad sin 'Ifmite. 
, / , . WEST BANK 
. La rapidez de refle]os es la clave de tu 
 supervivencia, y los ,ios de acero un 
seguro para la victoria. 
West Ba k. A.i,*i,'o .d Sin If ite. 
:" ' 
 ", ,, " : 

Plaza Espafia, 18 • Torte de Mad id, 29-1 • 28008 MADRID., .,. r-, ....... ., ...  
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Ceuta y Melilla, 155 ptas. 

Primera 
piano 

La revo/uci6n de/triple scroll en el 
¢¢Way of the l'iger>>. 

Primeros 
pasos 
Dentro de nuestra serie relativa al 
manejo de los grdficos bit a bit en el 
,4mstrad, haS toca analizar con 
profundidad la funci6n XOR, que asf, 
tan anodina coma parece, resulta 
que tiene mucha ¢¢miga>> grdfica. 

Los grdficos ejercen sabre los 
¢¢amstradviciosos> una atracci6n muy 
grande y, sabre todo, muy 16gica. 
Par eso, para haceros la vida un 
poco rods fdcil, as presentamos a 
DISPANT, un programa de diseo de 
pantallas y grficos en general 
bastante increble. 

Una de las herramientas mOs 
potentes para el desarrollo de 
programas en lenguaje mdquina 
bajo CP/M es el macroensamblador 
de Microsoft, el M80. Vamos a 
aprender a manejarlo rdpidamente. 

Mr. Joystick 

El boxeo fue, en su dfa, uno de los 
reyes de nuestros foros deportivos. 
Lo siga siendo o no, alga debe de 
tener, porque cada vez hay mds 
juegos par ordenador que Io 
simulan, coma el boxeo 
tridimensional de esta semana. 

Informat 86 

Hemos estado alE, y vosotros 
mismos juzgarGs, a travgs de 
nuestras palabras, si la feHa ha 
merecido o no la pena. 
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LO NUESTRO S HACER BUENAS GESI"IONES 
• 
• 
FACTURACION. $61o teclee un c6digo y 5alen todos Io5 datos deJ cliente. Numeraci6n correlativa automtica. Admire 30 productos• 
dlstintos por factura. Automticos, descuentos, cargos, IVA. Proporciona 5 totales por factura. (P.V.P. 15.300 incl. IVA.) 
PRESUPUESTOS. Guarda en memoria los presupuestos y extiende las facturas. Conceptos de 200 caracteres cada uno (3 renglones 
de escritura). (P.V.P. 18.300 incl. IVA.} 
CUENTAS, PROVEEDORES, 8ANCOS, CLIENTES. 3 ficheros separados. Resgmenes totales, unitarios o parciales. El mejor 
auxiliar de CONTABILIDAD al dia. (P.V.P. 8.600 incl. IVA.) 
CONTROL DE ALMACEN IVA. C6digo de 9 dlgitos alfanumricos. 25 dgitos denominaci6n. Una sola pantalla entradas y sali- 
das, con visi6n de asientos anterlores. Stocks m6ximo, mnimo y avisa para reaprovisionamiento. Totales entradas y salidas cada panta- 
Ila. (P.V.P. 15.300 incl. IVA.) 
CLIENTES (con etiquetas). 11 campos distintos para Iocalizaci6n. Etiquetas 4 modelos distintos en salida de dos. El m6s fiel auxiliar 
ahorrador de tiempo.(P.V.P. 8.600 incl. IVA.) 
RECISOS. Resuelve el problema intermlnable a asociaciones, comunidades, colegios. Fijos los campos del normalizado y 12 campos 
libres (4 numricos con c61culos autom6ticos). Liquidaciones bancos. (P.V.P. 18.300 incl. IVA.) Con numeraci6n autom6tica (21.200 incl. 
IVA.) 
RESTAURANTE$. Tratamiento de minuta y factura5. ResOmenes por grupos. Mesas abiertas permanentemente, correcciones, cam- 
bios, etc., hasta emisi6n fra. final. (P.V.P. 35.000 incl. IVA.) 
IVA POR ALMACEN. Rellena liquidaciones Hacienda. Introduce cuentas IVA gastos. (P.V.P. 18.900 incl. IVA.) 
URBANIZACIONES. Lectura y tratamiento de contadores consumos (agua, gas, luz, etc.). Extensi6n recibos y totalizaciones ban- 
cos. Fmisi6n etiquetas. (P.V.P. 40.000 incl. 
LISRO$ DEL IVA. Controles de repercutido y soportado orden num.rico. Res0menes estudios comparativos. Rellena liquidaci6n Ha- 
cienda. (P.V.P. 16.800 incl. IVA.) 
FACTURACION Y ALMACEN. Gesti6n unida. Ficheros clientes, productos, descuentos y cargos. Todos los res0menes. (P.V.P. 
18.900 incl. IVA.) 
COTIZACIONES. El meior cuadro comparativo de precios. Le dice el mejor precio proveedor. (P.V.P. 26.300 incl. IVA.) 

1 AI  IO DE 

G RANTI ' 

inf°rmctica | 
G  O  'uR. S.A. I 
C/JAIME EL CONOUISTADOR, 27 • 
28045 MADRID Trio. 474 55 00 I 
4745532 • 



WEST BANK, DE DINAMIC, 
N, cicl con la fiebre 
del oro que barri6 el Oeste, tienen 
enfre sus m6s presfigiosos esfableci- 
mienfos el West Bunk, instituci6n que 
provoco los firoteos m6s concurridos 
al sur de Dakota. 
Todos anhelan las riquezas que se 
esconden tras los muros del banco. 
Tu sangre {ria es el 0nico amuleto 
que puede impedirlo. 

Los personajes 
Green Jordan 
Jack Vicious 
Daisy 
El mexicano 
Bowie 
Julius 

El juego 
Las oficinas del West Bank constan 
de 9 puertas, tu misi6n consiste en 
conseguir dep6sitos de dinero en ca- 
da una de elias. 
Perder6s vidas cada vez que reci- 
bas un impacto de bala o dispares 
sobre alguien inocente. 

El duelo 
Entre fase y fase deber6s superar 
un duelo contra tres asesinos a suel- 
do. 

PARA A/MSTRAD 

Si eres r6pido podr6s ganar mu- 
chas vidas y numerosos puntos, si 
eres lento probar6s el sabor del pol- 
vo de Soft City. 

El final 
La defensa del West Bank es una 
empresa para los fuertes. Todos in- 
tentar6n resistir dos dias completos 
los incesantes tiroteos. 
Cu61 es el misterio que se oculta 
tras el segundo dia? El interrogante 
queda en el aire. 
Los secretos y los tesoros, fueron 
inventados s61o para los vencedores. 

T 

WAY OF 
THE 

iempre aparece 
un juego especial que aborda un te- 
ma conocido, pero que Io trata de 
una forma tan revolucionaria e inge- 
niosa que le dota de un aire comple- 
tamente nuevo y de una vida y un in- 
ter6s mucho mas largos. 
Este es el caso del Way of the ti- 
ger>, el Camino, del tigre, que cuen- 
ta la historia de las aventuras y des- 
venturas de un guerrero Ninja, ex- 
perto en todo tipo de lucha cuerpo 
a cuerpo. 
Hasta aqui todo normal, pero, me- 
diante una nueva t6cnica de progra- 
maci6n, conocida como <<triple 
scrolb, se ha conseguido un efecto 

de tridimensionalidad y movimiento 
simplemente increible. Merece la pe- 
na verlo y jugarlo. 
El juego ha sido creado por Grem- 
lin Graphics y Io disbribuye ERBE. 
Erbe software esta en: 
Santa Engracia, 17 
28010 Madrid 

NOTIClAS 

Los clubes de usua- 
rios de CP/M son asociaciones de 
personas, usuarios, que est6n intere- 
sados en colaborar juntos para con- 
seguir el maximo rendimiento de su 
ordenador, que, naturalmente, eje- 
cuta el sistema operativo CP/M. 
Para ello, cuentan con ofertas es- 
peciales de programas CP/M de to- 
do tipo, adem6s de Io que se cono- 
ce como software de dominio p0bli- 
co, el cual todo el mundo puede usar 
y que se encuentra en las <bibliote- 
cas del club. 
Estos programas, gratuitos o casi, 
abarcan tambian casi todo el espec- 
tro de aplicaciones inform6ticas. 
Tenemos noticias de un club CP/M 
en Inglaterra, y vamos a dar aqui su 
direcci6n para todos aquellos que se 
encuentren interesados en adquirir 
mayor informaci6n del tema o, inclu- 
so, en formar parte del asunto. 
El telfono es el siguiente: (01) 
247 06 91. 
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• IC, OR 

Ya hemos visto la rnanera de utilizar 

pr6cticamente la funci6n 16gica XOR para luelo 
aplicarla con xito a cualquiera de Jas rutins 
r6ficas que se pas.ean .or.nuestra rnente. Con 
ea va a sernos posble dibular y borrar formas y 
colores en la pantalla sin perturbar el resto de Io 
que all( aparezca. 

Jgamos una especie de 
resumen de su farina de trabaj- : 
En el Programa I hemos coloreado en rojo 
un rectngulo. Cuando pulsemos una teda una 
linea azul atravesar6 dicho rectngulo de la- 
do a lado dividindolo en dos partes iguales. 

Programa uno 

Pulsando de nuevo cualquier otra tecla se 
borra la linea y volvemos a tener nuestro rec- 
t6ngulo original. Este proceso se repetir una 
y otra vez mientras sigamos presionando una 
tecla. 

10 REM F'ROGRAMA I 
20 MODE 0 
30 FOR ranja I00 TO 500 STEP 4 
40 MOVE franjaO 
5D DRAW franja.300,3 
60 NEXT 
70 WHILE -I 
80 PRINT CHR$(23) CHR$(1) i 
90 WHILE INKEY$ .... :WEND 
100 MOVE I00 150 
110 DRAW 500° 1503 
120 WEND 

Y todo esto Io conseguimos mediante la fun- 
ci6n 16gica XOR que hace aparecer y desa- 
parecer la recta. La linea 80 ha ordenado al 
micro que dibuje en modo XOR mientras que 
la 90 detiene el programa y espera hasta que 
pulsamos una tecla para continuar. A conti- 
nuaci6n traza de nuevo la linea recta. 
Coma recordar, cuando hacemos un XOR 
de alga consigo mismo un par de veces, vol- 
vemos a obtener ese alga en su estado origi- 
nal. 

Supongamos que queremos dividir el rect6n- 
gulo en otros dos m6s pequeos, pero no es- 
tamos muy seguros a la horo de elegir el sitio 
par donde hacerlo. 
El Programa IIes similar al anterior, pero 
en este caso has va dar la oportunidad de 
cambiar la posici6n de la linea divisoria. 

Programa dos 

La linea de carte est6 colocada en un prin- 
cipio en el centro del rectngulo coma antes, 
pero al pulsar cualquiera de las teclas de los 
cursores que indican arriba o abajo, la recta 
puede moverse a otra posici6n. Y de hecho 
se mueve, ivaya que 
El programa funciona de la siguiente mane- 
ra: las lineas 10 a 60 se utilizan para dibujar 
el rectngulo mientras que la 70 fija el valor 
inicial de la coordenada (¢y)) de la recta. La 80 
llama a la subrutina que empleamos para di- 
bujar la linea azul. 
Cuando el ordenador detecta que hemos 
pulsado una tecla del cursor -lineas 100 a 
11 O- el programa salta a la rutina de la 130 
y traza de nuevo la recta en modo XOR. El 
resultado conseguido es que la linea se borra 
y desaparece de nuestra vista. 
El valor de la variable y se incrementa 
o decrementa, dependiendo de la tecla que 
hayamos pulsado, y volvemos a usar ahora 
la subrutina para dibujar de nuevo la recta, 
pero en esta ocasi6n, en una nueva posici6n. 
El proceso se repite coda vez que presione- 
mos una de las teclas del cursor. Las lineas 130 
y 140 simplemente evitan que la linea se sal- 
ga de los limites superior o inferior del rectn- 
gulo. 
En este Programa II hemos utilizado el mi- 
cro coma ayuda para colocar la recta diviso- 
ria en la posici6n que nosotros queramos. Aca- 
bamos de dar el primer paso en el campo del 
diseo asistido par ordenador habitualmente 
conocido coma CAD. 

Podemos abordar ahora una nueva etapa 
en nuestro camino. Imagine par un momenta 
que es un arquitecto y desea resolver el pro- 
blema que le representa colocar la puerta de 
la calle de una casa en su posici6n correcta. 

i0 REM PROGRAMA If 
20 MODE 0 
(I FOR frana=lO0 TO 5DO STEP 4 
40 MOVE rana.O 
50 DRAW frana 3DCI, 3 
60 NEXT 
70 y- 150 
80 80SUB 130 
9(I WHILE -I 
IDO IF INKEY(O) D THEN GOSUB 130:y 
y+2: GOSUB 130 
11{) IF INKEY(2) 0 THEN GOSUB 
y-2: GOSUB 130 
12D WEND 
130 IF y<O THEN y O:RETURN 
140 IF y>300 THEN y 300:RETURN 
150 PRINT CHR$ (23)  CHR$ 
160 MOVE 100,y 
170 DRAW 50C),y,3 
180 RETIJRN 

El Programa III dibuia nuestra casa, repre- 
sentada par un rect6ngulo, y coloca una puer- 
to verde a la izquierda de la pantalla. Usan- 
do las teclas del cursor que indican izquierda 
y derecha podemos desplazar la puerta de un 



i 

I 
[ado a otro de la casa hasta encontrar su co- 
Iocaci6n ms conveniente. 

Programa tres 

Una recomendaci6n. Sea muy culdadoso 
cuando ejecute los programas de esta sema- 
ha. La funci6n 16gica empleada para los gr- 
ficos que hayamos utilizado en los programas 
anteriores podr6 afectar seriamente nuestro 
trabajo. 
Podemos resolver este problema pulsando 
"¢trl", "Shift" y "Espace" para porter 
a cero e inicializar (o ,resetear) el micro. Qui- 
z6 resulte un poco pesado, pero funciona co- 
rrectamente y nos evita complicadones pos- 
teriores. 
El Programa III es muy semejante al ante- 
rior, pero observe que ahora movemos un ob- 
jeto s61ido mientras que antes solamente des- 
plazbamos una Onica linea. 
Para ello no es necesario, sin embargo, di- 
bujar la puerta completa repetidas veces. Sen- 
cillamente vamos haciendo un XOR con los li- 
mites de la misma pero cada vez un poco m6s 

a la izquierda o la derecha. Con este sistema 
parece que estamos moviendo toda la puerta 
de un lado a otro de la pantalla. 
La Figura I nos muestra la puerta dividida 
en un determinado nOmero de franjas verti- 
cales. Para moverla hacia la derecha todo Io 
que necesitamos hacer es borrar la franja del 
lado izquierdo y dibujar otra a la derecha del 
limite de la pue.rta. 

Borra 
esta  
franja 

a 
 una 
' ' franja 
Direcci6n del movimiento nueva 

Figura 1. C6mo se rnueve la puerta. 

Observe que de nuevo utilizamos las instruc- 
ciones de las lineas 150 y 160 para detectar 
la tecla que hemos pulsado y producir un mo- 
vimiento hacia la izquierda o hacia la dere- 
cha. Ha visto que son diferentes. 
Una de elias llama primero a la subrutina 
y despu6s cambia el valor de la coordenada 
x) mientras que la otra modifica dicho va- 
lor y despu6s hace el salto a la rutina. Con esto 
se nos permite utilizar una misma subrutina pa- 
ra producir los desplazamientos izquierdo y 
derecho. 

I0 REM PROSRAMA Ill 
20 MODE 0 
30 INK 15,18 
40 FOR frana-iO0 TO 500 STEP 
50 MOVE ranja,O 
70 NEXT 
GO PRINT CHR$(23):CHR$(1): 
90 FOR rana-O TO 48 STEP 4 
lO0 MOVE 

II0 DRAW 
120 NEXT 
130 x 0 
140 WHILE 
150 IF INKEY(1) 0 THEN 80SUB ISO:x 
160 IF INKEY(8) 0 THEN × -4:GOSUB 
180 
170 WEND 
180 MOVE 
190 DRAW 
200 MOVE ×+52,0 
210 DRAW x+5215012 
220 RETURN 

Si bien todos estos programas son unos 
ejemplos muy sencillos, podemos utilizar estos 
mismos principios b6sicos para el diseo y de- 
sarrollo de programas ms complejos. 
El Programa IV nos va a dibujar una casa 
pero de un modo mucho ms sofisticado. 

Programa cuatro 

Hemos prescindido del uso del color y sim- 
plificado la utilizaci6n de las lineas b6sicas que 
componen el gr6fico de la estructura de la casa 
por una mayor claridad a la hora de interpre- 
tar el programa. 
Primero aparece dibujado en la pantalla el 
contorno de nuestro ((chalet de la sierra)). 
Vamos a disponer, a continuaci6n, de la po- 
sibilidad de aadirle puertas y ventanas en la 
posid6n que nosotros deseemos. 
Despu6s de trazar la casa lineas 40 a 
130- el programa est6 esperando a que pul- 
semos cualquiera de las teclas P o V. Si pre- 
sionamos la P se dibuja una puerta y si es la 
V una ventana. 
Cuando aparece cualquiera de estos dos 
elementos, podemos moverlo a Io largo y an- 
cho de la pantalla empleando para ello las teo 
alas de los cursores. 
La tcnica utilizada es similar a la de los pro- 
gramas anteriores. Cuando se detecta e ideno 
tifica qu6 tecla del cursor hemos pulsado (li- 
neas 240-300), se llama a la subrutina de la 
330 para borrar el elemento elegido de la po- 
sici6n anterior y despu6s calcular la nueva. 
Volvemos a Ilamar a la subrutina, y volve- 
mos a dibujar la puerta (o ventana) en la si- 
guiente Iocalizaci6n. 
De esta forma somos capaces de mover ob- 
jetos por la pantalla. Pero tambi6n podemos 
intentar cambiar su tamao. 
Pulsando lasteclas  o  \ reduci- 
remos o agrandaremos el lemenoblegido. 
Para ello cambiamos el valor de la variable 
s, de modo que cada vez se va a dibujar 
la f0rma con un tamafio distinto. 
Una vez hayamos colocado nuestra puerta 
o ventana en su posici6n correcta podemos fi- 
jarla alli pulsando la tecla ¢apy. 
Con ello damos el valor cero a la variable 
c¢llg y esto nos da como resultado que 
la figura vuelva a ser dibujada, pero esta vez 
empleando la 16gica mgrmb. Asi nos apa- 
rece un dibujo que se queda fijo en la panta- 
Ila. 
Despus de haber pulsado la tecla ¢gpy, 
el cursor regresa a la esquina superior izquier- 
day se prepara para recibir otro elemento se- 
gOn presionemos la tecla V o P. 
Quiz6 le estn dando ganas de aadir for- 
mas nuevas de su cosecha particular al pro- 
grama. Bastaria con aadirlas a la subrutina 
a parfir de la linea 540 y seria necesario re- 
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poner la instrucci6n RETURN al final de esta 
nueva rutina. 
El objeto que acaba de aadir seria selec- 
cionado si damos el valor 3 a la variable f0r- 
ma, cuando pulsemos la tecla apropiada. 

 0 REM PROGRAMA I V 
20 MODE 0 
30 R[=M DIBU,]AR CASA 
40 MOVE O, 50 
50 DRAW &395D 
60 MOVE 20(h50 
70 DRAW 20CI, 
80 DRAW 600300 
90 DRAW 6D0.50 
I00 MOVE 2001300 
10 DRAW 25(h35D 
120 DRAW 550,350 
I0 DRAW 6D0,300 
140 WHILE -I 
15(: WHILE orma 0 
160 IF INKEY<55)-O THEN mrma I 
170 IF INKEY(27) 0 THEN orma=2 
180 WEND 
190 s- 100 
200 codgo 
210 x-O: y=399 
220 GOSUB 330 
230 WHILE codigo 1 
240 IF INKEY(39)=O THEN GOSUB 330:s 
s-2 GOSUB 
25D IF INKEY(31)=O THEN GOSUB 330:s 
-s+2: GOSUB 330 
260 IF INKEY<O)-D THEN GOSUB 330:y= 
y+2: GOSUB 330 
270 IF INKEY(2) 0 THEN GOSUR 330:y= 
y-2:GOSU8 330 
280 IF INKEY(8) 0 THEN GOSUB 
x-4: GOSUB 330 
29D IF INFEY(1)-O TCN GOSUB 330:x 
x4: GOSUB 330 
3D0 IF INk'=Y(9)=O EHEN codigo O:GOS 
B 330: orma=O 
10 WEMD 

320 WEND 
330 PRINT CHR$(23) :CHR$(codlgo) ; 
340 MOVE x, y 
35(I IF forma 2 THEN OOTO 450 
360 DRAWR 
370 DRAWR O-s 
380 DRAWR -s, 0 
390 DRAWR O,s 
4DO MOVER 0.5s,O 
410 DRAWR D,-s 
420 MOVER -0.5s, O. 5s 
43D DRAWR s,D 
440 RETURN 
450 DRAWR 0.75s,0 
460 DRAWR 00-1.5s 
470 DRAWR -D. 75s, 0 
480 DRAWR O, 1.5s 
490 MOVER O. 15S-O.2s 
50 DRAWR 0.45s,0 
510 DRAWR 0,-0.45,s 
52(') DRAWR -0.45s,0 
5D DRAWR O,D. 45,s 
540 RETURN 

Finalmente necesitaremos analizar dicho va- 
lor de un modo anlogo a como se hace en 
la linea 350 para enviar al programa a la par- 
te final (aadida) de la subrutina. 
La funci6n 16gica XOR se usa habitualmen- 
te para hacer aparecer y desaparecer cual- 
quier objeto y moverlo de un lado a otro de 
la pantalla. En realidad, Io que estamos ha- 
ciendo, sencillamente, es borrarlo de su anti- 
gua posici6n y volver a dibujarlo en la nue- 
va. 
Esta tcnica se usa con bastante frecuencia 
aplic6ndola a los juegos. El Programa V di- 
buia una especie de dial giratorio que se pueo 
de utilizar como radar o cored panel de ex- 
ploraci6n de algOn juego espacial o de simu- 
laci6n. 

Programa cinco 

Las lineas 40 a 60 dibujan un circulo. A con- 
tinuaci6n se traza una recta desde el centro 
hasta el perimetro del circulo, representando 
la aguja. 
Este explorador va a girar en uno o en otro 
sentido seggn pulsemos las teclas de los cur- 
sores que sealan a la izquierda o a la dere- 
cha. 
Usando el mtodo que hemos estado vien- • 
do anteriormente, la subrutina de la linea 130 
va haciendo XOR repetidas veces y hace apa- 
recer y desaparecer la aguja. Las lineas 100 
y 110 eligen el sentido de girD de la misma in- 
crementando o decrementando el valor de la 
variable nggle. 
Aunque en este programa controlamos el 
movimiento con bs teclas del cursor, podria- 
roDS hacer Io mismo incorporando al progra- 
ma variables cuyo valor determinaria si hay 

ID REM PROGRAMA V 
20 MODE I 
%0 DEG 
40 FOR angulo 0 TO 360 
5D PLOT 100SIN(angulo)+320,100COS 
(angul o ) +200 
60 NEXT 
?D angul oI 
80 O0UB 130 
90 WHILE -I 
IOD IF INKEY(1) 0 THEN GOSUB 13D:an 
gulo angulo+1:GOSUB 130 
110 IF INKEY(8)-D THEN GOUB 130:an 
gul angul- :GOSUB 130 
12D WEND 
130 PRINT CHR$ (23) ; CHR$ ( I )  
140 IF angulo 361 THEN angulo-1 
150 IF angulo 0 THEN angulo 360 
160 MOVE 320,200 
70 DRAW 100S]N (angul o) +20, 100C0 
S angul o) +200 
180 RETURN 

movimiento o no y, de haberlo, en qu seni- 
do se va a realizar. 
Si alguna vez ha utilizado un programa de 
simulaci6n de vuelo, probablemente no se le 
habr pasado por alto que utiliza esta tcni- 
ca para que nos aparezcan en la pantalla va- 
riDs de los instrumentos que componen el ta- 
blero de control de un avi6n. 
En el Programa VI hacemos uso de los tem- 
poralizadores que tiene incorporado su Am$. 
trad para realizar un reloj que funciona en 
tiempo real. El segundero se mueve cada se- 
gundo/coreD es de rigor) usando el tempora- 
lizador nOmero 1. 

Programa seis 

La linea 100 le dice al programa que salte 
a la subrutina de la linea 130 cada segundo 
y asi mueva el segundero azul. 
Del mismo modo, la linea 110 ordena al pro- 
grama que se desvie a la subrutina de la li- 
nea 150 una vez por minuto para mover el mi- 
nutero roio. En esta ocasi6n se usa el tempo- 
ralizador nOmero 2. 

No hemos incluido la manilla horaria por rao 
zones evidentes. Sin embargo, podria hacer- 
Io usted mismo, utilizando el temporalizador 
nOmero 3. El Onico problema radica en el he- 
cho de estar pendiente una hora mirando 

10 REM PROGRAMA VI 
2D MODE 1 
30 DEG 
40 FOR angulo 0 TO 3&O 
50 PLOT lO0$SIN(angulo) +320, IO0COS 
(angul o) +200 I 
AO NEXT 
70 m-l: s-1 
80 GOSUB 170 
9(I GOSUB 210 
100 EVERY 500 GOSUB 13C= 
110 EVERY 3000, 1 GOSUB 150 
120 WHILE INKEY$ "":WEND 
13(I GOSUB 170:s=s+6:GOSUB 170 
140 RETURN 
50 GOSUD 21D:m=m+6:GOSUB 210 
160 RETURN 
170 F'RINT CHR$ (23) ; CHR$ ( 1 ) ; 
I0 MOVE 320200 
190 DRAW I O0$SIN (s) +320. 100COS (s) + 
200, 2 
2DO RETURN 
210 MOVE 320200 
220 DRAW 75tSI N (m) +320 75tCOS (m) +20 
03 
23D RETtJRN 

atentamente la pantalla de su monitor para 
poder ver los resultados de su trabajo. 
Nos acercaremos ahora a la tcnica cono- 
cida cOreD ¢¢goma el6sticmx Con ella es 
posible trazar una linea sobre la pantalla uti- 
lizando las teclas del cursor una especie de 
Etch-a-Sketch computerizada. 
El Programa VIII dibuja una Iinea con un 
tremo fiio en el centro de la pantalla. El otro 
est libre y se desplaza cored un cursor cross- 
hair. 

Programa slete 

Podemos moverle por la pantalla usando, 
no se sorprenda, las teclas del cursor de su 
Amstrad. 
Observar6 c6mo el extremo libre de la rec- 
ta va a irse alejando o acercando siguiendo 
las 6rdenes que le damos con los cursores. Pa- 
rece que la Iinea se estira o encoge coreD una 
pieza el6stica, de ahi el hombre de ¢goma 
elsticm. 
Esta recta es m6vil debido a que hemos he- 
cho uso de nuevo de la funci6n XOR que bo- 
rra y vuelve a dibujar 
sici6n repetidas veces. 
El programa usa dos parejas de variables 
para contener los extremos de la recta ex 
e y ser6n las coordenadas del fijo, mien- 
tras que a y b ser6n las de/fibre. La su- 
brutina de la linea 170 simplemente traza una 
recta entre elpunto x y y el 
utilizando la funci6n 16gica XOR. 
Podemos fiiar la recta en cualquier posici6n 
de la pantalla afiadiendo las siguientes lineas 
al Programa VII: 
150 IF INKEY(9)=O THEN GOSU8 170 



: c6digo= 0: GOSU B 170: c6digo= 1: GOSUB 
170 
200 IF c6digo=0 THEN RETURN 
A continuaci6n, cuando putsemos la tecla 
¢opy, primero se borrar6 la linea y des- 
pus vuelve a dibujarse con una 16gica mor- 
mob y asi quedar6 permanentemente en la 
pantalla. 
La linea 200 impide que el cursor quede tam- 
bin fijo. Finalmente volvemos a trazar la recta 
con el XOR 16gico y de esta forma seguir6 obe- 
deciendo a los mandatos que le demos con las 
teclas. 

10 REM PROGRAMA VII 
20 MODE i 
_0 INt- 3,24 
40 codi go 
50 -20 
70 a 400 
GO b 300 
90 GOSUB 170 
I00 WHILE -I 
lID IF INF:',EY(Ot 0 THEN GOSU[ 170: 
b+: GOSUB 170 
120 IF INKEY(2) 0 THEN GOSUB 170:I 
b-4: GOSUB 170 
130 IF IN:EY(1)-O THEN BOSU 170: 
a+4 : GOSUB 170 
140 IF INKEY(8=O THEN GOSUB 
a-4: BOSUB 170 
16{i WEND 
170 PRINT 0HR$(23) :CHR$(codigo) 
180 MOVE y 
190 DRAW ab,codigm÷1 
210 MOVE 
22{I DRAW 
230 MOVE 
240 DRAW a.h+10 
250 ETURN 

Por Io tanto, hemos descubierto la forma de 
hacer que permanezcan en la pantalla las li- 
neas que nos interesen simplemente pulsando 
la tecla ¢opy. La Tabla I nos muestra los 
valores utilizados en la selecci6n de la 16gi- 
ca usada para dibujar un gr6fico. 

En el Programa VII dibujamos todas las li- 
neas desde un punto fijo en el centro de la pan- 
talla. Sin embargo, podriamos intentar mover 
el extremo fijo de la linea de la misma mane- 
ra que el libre. 
Modifiquemos otra vez el programa cam- 
biando la linea 150 por: 
150 IF INKEY(9)=0 THEN c6digo-0: GOSUB 
170: x=a: y=b: codigo=l 
De esta manera cuando fiiamos una recta 
en la pantalla, la posici6n del extremo fijo se 
desplazar6 hasta la Oltima posici6n del libre. 

Asi podemos trazar lineas continuas e incluso 
conseguiremos hater alg0n bonito dibujo. 
En un programa anterior dibujamos el con- 
torno de una casa usando datos incorporados 
al mismo. En este momento ya somos capa- 
ces de repetirlo movienclo el cursor por la pan- 
talla y trazando las lineas apropiadas. Y, 
qu no intentamos dibujar cualquier otra for- 
ma facilita? 
El inconveniente del Programa VII es que so- 
lamente podemos trazar con 1 una linea con- 
tinua. No nos da la facilidad de levantar la 
pluma del papel y colocarla en otra posici6n. 
Tampoco podemos borrar una linea una vez 
que ya est colocada en la pantalla. 
El Programa VIII es similar al anterior, pe- 
ro le hemos aadido las facilidades que el fal- 
taban. Utilizamos en 1 varias teclas cuyas fun- 
ciones resumidas aparecen en la Tabla II. 

Programa ocho 

Es un programa un poco m6s completo que 
el VII. Seria conveniente que dedicara un po- 
co de tiempo a su estudio y entender totalmen- 
te su forma de funcionamiento. 
Y esto es todo por el momento. Esperamos 
que haya disfrutado gn ot a la vez 
que ha continuado su aprendizaje. Y siempre 
que quiera conseguir una obra 
eche un vistazo a su MICROHOBII¥ 
TRAO. 

lO RM PROGRAMA 
20 REM INICIA[ IZACION DE VARIABLES 
40 INH 324 
50 cdigol 
60 nib=l 
70 =320 
SO y200 
90 a 320 
tOO b-200 
110 REM DIBUAR CURSOR 
120 GOSUB 250 
130 REM DETECTAR TECLAS 
140 WHILE 
150 IF INtEY(O) 0 THEN BOSUB 370:b 
b4:GOSUB 370 
I0 IF INKEY(2) 0 THEN GOSU 370:b 
b-4:BOSUB 370 
170 IF INKEY(1) 0 THEN GOSUB 370:a 
a+4:SOSUB 370 
180 IF INEY(S)-O THEN SOSUB 370:a 
a-4:GOSUB 370 
190 IF INKEY(9)=O AND nlb=1 THEN GO 
SUB 440 
200 IF INKEY(36)=O AND nib 
OSUB 500 
210 IF INKEY(69) 0 AND nlb 0 THEN 
OSUB 500 
220 IF INKEY(79)=O THEN SOSUB 560 
230 WEND 
240 REM DIBU3AR CURSOR 
250 PRINT CHR$(23)CHR$(1) 
260 MOVE 
270 DRAWR 0, I02 
280 DRAWR 
290 DRAWR I0.-I0 
300 DRAWR -20,-20 
310 DRAWR -100 
320 MOVER 0I0 
330 DRAWR I0-I0 
340 MOVER -55 
350 DRAWR 2020 
360 RETURN 
370 REM DIBUgA LINEA 
30 IF nib-O THEN OTO 420 
390 PRINT CHR$(23);CHR$(1) 
400 MOVE 
410 DRAW a 
420 GOSUB 240 
430 RETURN 
440 REM FI3AR LINEA 
450 PRINT 
460 MOVE y 
470 DRA a,bsl 
490 RETURN 
500 REM ACERCAR 0 LEVANTAR LA PLUMA 
510 GOSUB 370 
520 IF nib-1 THEN nib 0 ELSE nb=1 
530 :=a:y b 
540 OSUB 370 
550 RETURN 
560 RgM ORRAR LINEA 
570 PRIMT 
580 MOVE .b 
590 ORAW 
10 RETURN 

acoor AMSTRAD 9 



C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 
Aparcamiento gratuito en Felipe II 

SOFTWARE: ii 2 PROGRAMAS POR EL PRECIO DE 11 
Y adem6s, comp|etamente gratis, un magnifico reiD i de cuarzo. Increfble verdad? 

Ptas. 
PING PONG 2.295 
SABOTEU R 2.295 
RAMBO 2.295 
YIEAR KUNG FU 2.295 
WORLD SERIES BASEBALL 2.095 
MAPGAME 2.750 
RAID 2.295 
HYPERSPORTS 2.295 
HIGHWAY ENCOUNTER 1.750 
HIGHWAY ENCOUNTER DISCO 3.300 
ALIEN B 1.750 
--I 

DYNAMITE DAN 
SABRE WULF 
THEY SOLD A MILLION 
FIGHTER PILOT 
MASTER OF T. LAMP 
NIGHIT SHADE 
HACKER 
SUPER TEST 
TORNADO LOW LEVEL DISCO 
TORNADO LOW LEVEL 
KNIGHT LORE 
--I I 

Ptos. 
2.100 
1.650 
2.500 
1.975 
1.950 
1.950 
1.950 
2.300 
3.300 
1.750 
1.750 

SOFTWARE DE REGALO: iiOFERTA 2 x I!! 

Beach Head Decathlon Dummy Run Beach Head Southern Belle 

SOFTWARE DE GESTION PROFESIONAL 

DBA II 17.800 DR. GRAPH 
CBASIC 15.100 CONTABILIDAD 
DR DRAW 15.100 Y VTOS. 

15.100 
16.600 

IMPRESORAS 
ii20% DTO. SOBRE P. V.P.!! 

' UNIDAD DE DISCO 51A '' 
. PARA AMSTRAD 
34.9()O PI"A$. 

LA Pl OPTICo ÷ I 

CINTA VIRGEN ESPECIAL ORDENADORES 
69 PTA$. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 
CASSETTE ESPECIAL ORDENADOR 
5.295 PTAS. 

JOSTICK QUICK SHOT II 
1.795 PTA$. 
JOYSTICK QUICK SHOT V 
2.295 PTAS. 
con la compra de un joystick 
iiGRATI$ 1 RELOJ DE CUARZO!! 

DISKETTE 51 '' 
295 PTA$. 

DISKETTE 3" 
990 PTA$. 

Pedidos contra reembolso sin ning0n gasto de envio: Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/Duque de Sesto, 50.28009 Madrid 



C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 

1.695 
ptas. 

QUICK SHOT I + INTERFACE 
2.695 PTAS. 

CUICK SHOT II + INTERFACE 
2.995 PTAS. 

1.695 
ptas. 

ISIN GASTO$ 
DE ENVIOI 



CR O ENSAM B LA D O R /Vl S O 

Examinaremos en este artlculo algunas de los 
caracteristicas y posibilidades del 

macroensamblador MSO de Microsoft y  
mostraremos c6mo podemos construir con esta ,! 
herramienta un archivo ".BIN" con c6digo m6quina  
cargable desde el BASIC. 

80 es un macroensam- 
blador (es decir, un ensamblador que admite 
definici6n y usa de macros). Se eiecuta en 
CPM. 
El macroensamblador M80 de Microsoft vie- 
ne acompa6ado de un editor de enlaces y car- 
gador (L80), y utilidades para obtener refe- 
rencias cruzadas (CREF80) y gestionar libre- 
rias de programas objeto (LIBS0). 
El ensamblador ocupa 14 Kb de memoria 
y ensambla a una tasa de unas 1.000 lineas 
par minuto. Es un ensamblador de 2 pasadas. 
Admite mnem6nicos de18080 y del Z80 y con- 
tiene un conjunto amplio de directivas o pseu- 
do operaciones, que satisfar6n al programa- 
dor profesional. 
Podemos programar modularmente, cons- 
truir rutinas y librerias de programas objeto 
a partir de fuentes independientes y enlazar- 
los con L80 para construir el m6dulo ejecuta- 
ble. 
Disponemos asimismo de un juego comple- 
to de directivas para definici6n de macros e 
inclusi6n de librerias de macros en el progra- 
ma fuente. 
Combinado con las posibilidades de L80 y 
el resto de utilidades, el macroensamblador 
M80 es una herramienta para la programa- 
ci6n en ensamblador. 
No daremos aqui una descripci6n comple- 
ta de M80, para Io que remitimos al manual 
de Microsoft. 

Construcci6n de 
un programo 

Antes de pasar a examinar las posibilidades 
del ensamblador, veamos con un ejemplo ele- 
mental el proceso de construcci6n del progra- 
ma ejecutable: 
1) Creamos el fuente con un editor 
de textos. El nombre del archivo fuente de- 
ber6 tener obligatoriamente la extensi6n 
'.MAC'. Par ejemplo: 

12 /COHO AM$TRAD 

* ;,IEHZ* ' 
Pruebo del MS0 
,ZSO 
Definici6n de macros: 
VISUALIZA MACRO TEX 
LD DE, TEX 
LD C,9 ;; codigo de 
funci6n 
CALL 5; BDOS 
ENDM 
FIN MACRO 
JPO 
ENDM 
Programa: 
TEXTOI: DB 'Prueba 1 del MSOS' 
COMIENZO: 
VISUALIZA TEXTOI 
END COMiENZO 
FIN DEL FUENTE 

Supongamos que Ilamamos al archivo fuente 
PROGR1.MAC. 
2) Ensamblamos el programa 
fuente: 
A + MS0= PROGR1/R/L 
El ensamblado produce un fichero con la ex- 
tensi6n '.REL' que contiene el objeto y otro con 
la extensi6n '.PRN' que contiene el listado del 
ensamblado. 
3) A continuaci6n, si no ha habido 
errores en el ensamblado, creamos 
el objeto cargable con 180: 
A + LS0 PROGR1,PROGR1/N/E 
L80 crea un archivo '.CON' que podemos eje- 
cutar: 
4) Ejecuci6n del programa 
A + PROGRI 
Y nos aparecer6 en pantalla el texto 'Prue- 
ba 1 del M80'. 
AI principio del programa colocamos la di- 
rectiva '.Z80' para indicar al ensamblador que 
vamos a usar los mnem6nicos del Z80. La 
quina asume par defecto '.8080'. A continua- 
ci6n definimos dos macros que vamos a usar 
en el programa: VISUALIZA con 1 par6metro 
y FIN sin par6metros. 

A continuaci6n sigue el programa propia- 
mente dicho que termina con la directiva END, 
donde indicamos la direcci6n de comienzo de 
ejecuci6n de nuestro programa. N6tese que 
no hace falta indicar nada acerca del comien- 
zo en la direcci6n 100h. El L80 se encarga de 
colocar en esa direcci6n una instrucci6n de sal- 
to a la direcci6n de comienzo de nuestro pro- 
grama. 

Directivas o 
Pseudo operaciones 

El M80 soporta las directivas del macroen- 
samblador reubicable de INTEL para el 8080. 
Adem6s disponemos de otras directivas (.Z80, 
.PRINTX, .REQUEST, etc.). 
En el ap6ndice damos una tabla con las di- 
rectivas que admite el M80. 
Disponemos de directivas para 
control del contodor de posiciones y 
para indicar si un segmento es abso- 
luto y reubicable (ASEG, CSEG, DSFG, 



L  

ORG.I. Las directivas .PHASE y .DEPHASE 
nos permiten escribir c6digo que se va a car- 
ar y ejecutar en una posici6n de memoria di- 
rente a la que corresponde en el m6dulo ob- 
jeto. Esto nos permite, como veremos, gene- 
rat con M80 archivos '.BIN' cargables direc- 
tamente desde el BASIC. 
Para definici6n de simbolos y dedaraci6n de 
datos disponemos de EQU, SEt,, DB, DW, DS, 
DC. Para dedarar puntos de entrada desde 
otros m6dulos y etiquetas externas ENTRY o 
PUBLIC y EXTRN o EXT. 
La directiva INCLUDE o MACLIB nos 
permite crear librerias de macros y 
subrutinas fuente y .REQUESt, nos per- 
mite indicar una serie de archivos (programas 
objeto y librerias objeto) donde el LSO busca- 
r6 autom6ticamente los referencias no resuel- 
tas. 
Disponemos de un conjunto completo de 
pseudo operaciones de control del listado (TI- 
TLE, SUB1-1"L, PAGE, .LIST, .XLIST, .CREF y 
.×CREF) y de dos directivos para comentarios 
de m6s de 1 linea con delimitadores de prin- 

cipio y fin de comentario, en el estilo del Pas- 
cal o C. Y .PRINTX nos permite la visualiza- 
ci6n en pantalla de un comentario durante el 
ensamblado. 
Las directivas de ensamblado condicional 
(IF, IrE, IFDEF, IFNDEF, IF1 e IF2) nos per- 
miten preguntar si una expresi6n es diferente 
de 0 o es O, si un simbolo est6 definido o no 
y si estamos en la pasada 1 a la 2 del ensam- 
blador. Podemos escribir, por ejemplo: 

.XLIST no en listado 
IF1 si pasada 1 
.PRINTX <Pasada 1 
ELSE 
.PRINTX <Pasada 2 
ENDIF 
.LIST prosigue con el listado 

Macros 

Si utilizamos el M80, iremos crean- 
do una librerfa de macros y configu- 
rando de esta forma un lenguaje de 
programaci6n a nuestro gusto y me- 
dida. 
Disponemos de un conjunto de directivas 
(REPT, IRP, IRPC, MACRO, EXITM, ENDM, 
LOCAL) que permiten declarar la repetici6n 
de bloques de instrucciones y definir macros: 
REPI" exp indica que se repita el bloque de 
instrucciones que hay a continuaci6n hasta la 
directiva ENDM tantas veces como el valor de 
exp; IRP e IRPC indican que se repita el blo- 
que a continuaci6n dando en cada una de las 
repeticiones del bloque un valor diferente a 
un par6metro. El formato es IRP param (lista 
de valores) e IRPC param, caracteres. En ca- 
da una de las repeticiones param toma como 
valor sucesivos elementos de la lista de valo- 
res o caracteres de la cadena en el caso de 
IRPC. 
Con la directiva MACRO definimos una ma- 
croinstrucci6n. Ir6 precedida del nombre de 
la macro y seguida de la lista de nombres de 
par6metros. La definici6n termina con END,. 
La directiva EXITM permite terminar la expan- 
si6n de una macro antes del fin del bloque de 
definici6n. Podemos colocar etiquetas dentro 
de Io definici6n de una macro y declararlas 
locales para cada expansi6n de la macro con 
la directiva LOCAL. 
Podemos contanenar par6metros con texto 
en el interior de la Macro utilizando el opera- 
dor '&' y colocar comentarios en la definici6n 
que no aparecen en las expansiones con ';;'. 
Disponemos tambin de directivas para en- 
samblado condicional segOn est6 presente al- 
gOn par6metro o no en cada expansi6n de la 
macro: con IFNB (param) preguntamos si al- 
gOn par6metro est6 presente, y con IFB (pa- 
ram) o IF NUL param preguntamos si est6 
ausente. 
Para controlar la impresi6n en el listado del 
ensamblado de la expansi6n de las macros dis- 

ponemos de .LALL para listar toda la expan- 
si6n, .SALL para no listar la expansi6n y .XALL 
(asumido por defecto) para listar s61o las li- 
neas de la expansi6n que produzcan c6digo 
objeto. 
El procesador de macros incorpora- 
do en M80 admite dentro de las ma- 
cros Ilamadas a otras macros e inclu- 
so a si misma (recursividad) sin llmi- 
te pr6ctico en cuanto a nOmero de 
anidamientos, asi como definiciones 
de otras macros e incluso de s mis- 
ma dentro de la definici6n de una 
macro. (Una macro se puede definir m6s de 
una vez, se toma siempre la Oltima definici6n. 
Si una macro est6 definida dentro de otra, la 
definici6n s61o tendr6 efecto cuando se expan- 
da la macro que la contiene.) 
En el programa ejemlolo que pusimos al prin- 
cipio vemos la definici6n y uso de 2 macros 
sencillas. A continuaci6n veremos ejemplos de 
concatenaci6n de texto con par6metros, de 
definici6n recursiva de una macro, de la ex- 
pansi6n condicional segOn la presencia o no 
de un par6metro y de la definici6n de macros 
dentro de macros. 
Creamos una macro ROTC L/R,n que rote 
A+Carry a la izquierda (si L) o a la derecha 
(si R) tantos bits como el valor de n. ROTC L,3 
deber6 generar 3 instrucciones RLA y ROTC 
R,2 generar6 2 instrucciones RRA: 

ROTC MACRO DIR,N 
REPT N ;; repite n veces 
R&DIR&A ;; RLA o RRA 
ENDM ;; fin del bloque de 
repetici6n 
ENDM ;; fin de la definici6n de 
la macro 

Los comentarios delimitados con ';;' no apa- 
recen en la expansi6n de la macro. Vemos el 
: uso de '&' para concatenar par6metros y tex- 
to. Podemos no utilizar REPT y usar en cam- 
bio la definici6n recursiva: 

R01,C MACRO DIR, N 
IFN 
R&DIR&A 
R01,C DIR,N-1 
ENDIF 
ENDM 

Si queremos que el segundo par6metro sea 
opcional, y que si no est6 oresente se asuma 
con el valor '1' escribiriomos: 
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ROTC MACRO RO  C MACRO 
DIR,N IFB (N) 
R&DIR&A R&DIR&A 
EXITM ELSE 
ENDIF o 
bien: REPT N 
REPT N R&DIR&A 
R&D[R&A ENDM 
ENDM ENDIF 
ENDM ENDM 

Podemos crear una macro cuya expansi6n 
sea la definici6n de otra. 
Por ejemplo en lugar de escribir: 

ERROR 1 MACRO 
LD A,1 
JMP RUTERROR 
ENDM 
ERROR2 MACRO 
LD A,2 
JMP RUTERROR 
ENDM 

etc., podriamos poner: 
DEFERR MACRO ERR 
ERROR&ERR MACRO ;; el cuerpo de la ma- 
cro es la definici6n de ERRORn 
LD A, ERR 
JMP RUTERROR 
ENDM 
ENDM 
DEFERR 1 ; definici6n de la macro ERROR1 
DEFERR 2 ; definici6n de la macro ERROR2 
etc. 
Esto nas puede servir para tambin definir 
una macro cuya primera Ilamada expanda la 
Ilamada a una subrutina y el c6digo de la su- 
brutina yen las sucesivas Ilamadas s61o se ex- 
panda la Ilamada a la subrutina: 

SUBRUT MACRO 
SUBRUT MACRO 
CALL SUBR 
ENDM 
CALL SUBR 
LOCAL SSSS 
JMP SSSS 
SUBR ... 

'T 
SSSS 
ENDM 

Si declaramos la macro SUBRUT la primera 
vez que se la Ilame se volver6 a definir SU- 
BRUT con s61o la Ilamada a la subrutina y se 
expandir6 el c6digo que hay a continuaci6n 
de esta redefinici6n hasta ENDEM. Las siguien- 
tes veces que se Ilame a SUBRUT se utilizar6 
la redefinici6n. De las 2 etiquetas en el cuer- 
po de la macro una es local (SSSS) y la otra 
glabal (SUBR). 

14 ,ICEOHOB  AMSTRA D 

Construcci6n de un 
".BIN" con M80 

Podemos usar el ensamblador para crear 
programas CPM o para crear archivos '.BIN' 
que contengan c6digo m6quina y RSX carga- 
bles desde el Basic. 
Los archivos binarios cargables desde el Ba- 
sic contienen una cabecera de 128 bytes don- 
de figura la direcci6n de carga (para cuando 
no se especifique en la instrucci6n LOAD de 
BASIC), el nOmero de bytes a cargar y una su- 
ma de control de los caracteres de la cabecera. 
Mostraremos aqui dos macros que incorpo- 
radas al principio y al final de nuestro c6digo 
crear6n autom6ticamente la cabecera. Con es- 

tas macros escribiremos: 
INCLUDE BINMAC.MAC 
CABBIN nnnnn 

;establece cabece- 
ra del '.BIN' e in- 
dica direcci6n de 
carga 
;nnnnn es la direc- 
ci6n de carga (p. 
ej. 09600h) 
A continuaci6n escribimos el c6digo que se 
cargar6 con LOAD 
COMIENZO ;Esta etiqueta tiene 
el valor nnnnn 
; 
;Despu6s de terminar con el c6digo que se car- 
gar6, pondremos: 
FINBIN ;calcula Iongitud 
del c6digo m6qui- 
na y coloca final 
END del '.BIN' 
Si creamos el fuente asi y Io Ilamamos por 
ejemplo RSX1.MAC Io ensamblamos y crea- 
mos el '.BIN' con: 
A\. M80=RSX1/R/L 
A  L80 RSX1,RSX1.BIN/N/E 
A continuaci6n podremos cargar desde el 
Basic el archivo. Con LOAD "RSX1 .BIN" se 

cargar6 autom6ticamente en la direcci6n que 
establecimos al principio de nuestro fuente (pa- 
r6metro de CABBIN). Si el contenido a car- 
gar desde Basic es reubicable pondremos ce- 
ro como direcci6n de carga. 
El contenido de BINMAC.MAC ser6 el 
siguiente: 

3 0 
(CO 

Ap  ndice - Tabla de directrivas 

-- MACROS 
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Contabiligad 

P.V.P. 19.900" 

Factur  c  on 

P..P. 15.500" 

Control stoc 

P.V.P. 

14.900" 

PCW 8256 
PCW 8512 

• Estos precios no Inclu)en el IVA 
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DISPANT 

De estructurado y bien ejecutado podr/amos 
definir este disefiador gr6fico de pantallas, que 
cuenta con un amplio n6mero de posibilidades, 
gracias a las cuales harmos sin duda excelentes 
pantallas que podremos utilizar en otros 
programas. 
Luis Javier Idflez Pare/a 

ste diseador gr6-" 
rico que os envio no pretende en ab- 
soluto superar a los precedentes, 
aunque he de reconocer que est6 en 
gran parte basaoo e, ellos. 
Mi diseador gr6fico, muy guiado 
por ((Screen Designer)), pone en ma- 
nos del usuario la posibilidad de ma- 
nejar simult6nemante y a placer dos 
pantallas gr6ficas, (creo clue el 
<Screen Designer posee ambas pan- 
tallas, pero en cualquier caso no las 
pone a entera disposici6n del usua- 
rio). Una de elias permanece en la 
memoria del ordenador sin ser exhi- 
bida en pantalla hasta que ello no 
sea requerido por el mismo usuario, 
y sin que ello suponga la p6rdida de 
la queen ese momento estuviese en 
el monitor• 
Es el uso de ambos tipos de pan- 
tallas (que yo personalmente he Ila- 
mado grfica y de me•or•a) por el 
mismo usuario, Io que diferencia a mi 
diseador gr6fico del resto de los di- 
seadores, o por Io menos de los que 
conozco. 
Existen una serie de sencillas ruff- 
nas en m6quina que hacen que el 
uso, trasiego y mezcla de imgenes 
y dibujos se realice por el usuario de 
una forma rcpida y c6moda. 
El programa incluye unas detalla- 
dos instrucciones que se ilustran na- 
da m6s comenzar su ejecuci6n. La in- 
clusi6n de dichas instrucciones, que 
alargan notablemente la Iongitud del 
programa, se debe a que si bien el 
uso del pro.rama no es en Io m6s mi- 
nimo complicado, si que la memori- 
zaci6n de todos los detalles del mis- 
mo puede resultarlo. 

EZCLA 
DESDEMEM 

AMEM 

ABLA ' IBRUTINAS 
N¢ODIGO MAQUINA 
Superone 1o pantalla 
grfica a la de memoria. 
Lleva la pantalla de la me- 
moria a la pantalla grfi- 
ca. 
Lleva la pantalla grfica a 
la memoria. 

ARRIBA, 
ABAJO, 
DERECHA, 
IZQUIERDA 
AUMENTO 

AUMENTO 2 

CORRE, 
CORRE 1, 
CORRE 2 

40049, 40119 

Mueven el contenido de la 
pantalla en la direcci6n 
indicada. 
Aumenta la re•tad inferior 
de la pantalla. 
Aumenta Io mitad izquier- 
da de la pantalla a Io an- 
Realizan una serie de co- 
rrecciones de los efectos 
secundarios de alguna de 
las anteriores subrutinas. 
Direcciones de Ilamada a 
las subrutinas de <efectos 
especiales. 
Nora: Desdemem, amem, arriBa, abajo .... 
son constantes que vienen definidas en las 
primeras lineas del programa. Tambi6n pS 
(desde 1 hasta 3) son constantes que se uti- 
liza en las instrucciones. 

TABLA DE SUBRUTINAS 
EN BASI 
700-730 Carga la pantalla grfica 
actual en disco. 
740-770 Guarda la pantalla gr6fi- 
ca actual en disco. 
780-870 Cambia el color a un 
piz. 
880-910 Cambia el color de fondo. 
920-960 Modo texto. 
1000-1020 Inicializa los colores. 
1060-1080 Carga o pokeado del c6- 
digo m6quina. Tambin 
comprueba si ha hob•do 
errores en la copia de los 
DATAS. 
1120-1810 Instruciones. 
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Como habr6is pod•do comprobar, 
el programa en si no tiene mucha 
complicaci6n; es un programa sen- 
cillo, sin que ello impida que posea 
una amplia gama de posibilidades 
que satisfar6n al interesado en un di- 
seHador gr6fico capaz de alternar 
grficos, tratcndolos pot separado y 
mezcl6ndolos cuando crea necesa- 
rio, y que tambi6n har6 las delicias 
del que tan s61o busque un rato de 
diversi6n viendo c6mo sus diseos 
cambian, se mueven, se entrecruzan, 
aumentan,... 
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Quiz6s hay6is notado la ausencia 
del rnodo 2 y del modo 1, pero con- 
sidera contraproducente su inclusi6n, 
porque alargaria mucho el progra. 
ma (sabre todo el c6digo m6quinc 
y porque nunca pens en que rnid . 
sefiador gr6fico se destinase a gr6- 
ficas matem6ticas, cientificas, o de 
estadisticas, sino que fuera para 
aprovechar al cien par cien las posi- 
bilidades coloristas de los Amstrad, 
Otro posible detalle que puede 
echarse en falta es el hecho de que 
el usuario no tenga m6s informaci6n 

X,Y 
DX, DY 
AX, AY 
RX, RY 

A 
C(0-51 

AB ,J]..'n, ' IABLES 
Abcisa y ordenoda del cursor. 
kremento de la obcisa 
ordenada del cursor 
Anteriores abcisa y ordenada 
del cursor. 
Abcisa y ordenada dd origen 
de una recta o del centro de 
una drcunferencia. 
RA Radio de circunferencia. 
CIR Angdo que se usa en la rea- 
lizad6n de una circunferen- 
cia. 
L6piz en usa. 
Colores de coda uno de los 
k)pices. 
LA, CO, SC Respectivamente el 16piz, co- 
lor y segundo color que se 
empleon coma intermediarios 
en el cambio del color de un 
16piz. 
CF Color de fondo. 
PF Color apropiodo para el 
piz con el obieto de que se 
distinga del color del rondo 
cuando hay' que ilustrar texto. 
E Variable de espera (prdida 
de tiempo). 
A Nombre del fichero o ponta- 
Ila que se quiere guardar o 
cargar. Interviene ademOs en 
el modo texto. 

del estado de variables (qua color 
est6 en usa, el color del lapiz...) que 
el color del borde, que coincide con 
el de116piz que est6 en usa, pero an- 
tes de desaprovechar el espacio de 
pantalla que los Amstrads nos brin- 
dan (error en el que incurre cScreen 
Designer,s) preferi hacer esto. 
El programa es compatible con to- 
dos los BASICs de Amstrad, par Io 
ue podr6n hacer usa del rnismo to- 
as sus usuarios, excepto los que po- 
sean el PCW 256, pero los que no 
dispongan de la instrucci6n FILL de- 
ber6n borrar la linea 460. 
No he incluido el texto explicativo 
sabre el manejo del prograrna en es- 
te texto porque esta ya sobreabun- 
dantemente explicado en el rnisrno. 
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• LICACION DE 
:ESTODE ..0GRAM' 

10 

20-60 

9O 

130-310 

350-490 

530-650 
660 
1850 en 
adelante 

Hace que el trazado de circun- 
ferenc as se realice en grados. 
Ademds dimensiona la matr z 
de los co ores de cada 16piz. 
Define las constontes, inicia iza 
las variables y llama alas ruti- 
has desde la 1000 hasta la 
1810, entre las que est6n las 
instrucciones. 
Evita efectos secundarios del 
movimiento del cursor cuando 
Io que busca el usuario es la Ila- 
mada a subrutinas en mdquina. 
Mueve el cursor, selecciona su 
velocidad y hace que el cursor 
deje o no rostra. 
Cambia el Idpiz, hace intermi- 
tente el cursor para su Iocaliza- 
ci6n, fijo el centro de circunfe- 
rencia o el origen de una rec- 
ta, traza circunferencia o rec- 
ta, borra la pantalla, rellena re- 
cintos con la tinta del IOpiz en 
usa y llama alas subrutinas en 
BASIC. 
Llama alas subrutinas en c6di- 
go m6quina. 
Cierra el cido principal del pro- 
grama. 
Datas correspondientes a los 
colores (los diecisis primeras) 
y al c6digo maquino {las si- 
guientes). 



i0 DEG:DIM c(15) 
20 p$(1) " § 
7§fO§f9 
f4§ 
lf2§f 
30 p$ (2) " § 
f7§fO§9 
§÷4§ §f6 
if23 
40 p$ (3) -'Pul se [ESPACIO] Para Volv 
er A1 Programa O Cualquier Otra Tec 
I Para Continuar":linea=1860 
50 GOSUB 1000 
60 mezcla-40521:dedemem 40000:amem 
40012: art iba=40083: abao-40107: izq 
uierda 40071:derecha=40095:aumento= 
40193:aumento2 40429:cambio 40360:c 
orre 40558:correl-40569:corre2-4002 
4:a l:x=320:y-200:pf 24:rx 321:ry=2 
Ol 
70 MODE O:INK 
80 BORDER c 
90 IF INKEY(9)=O THEN 53D 
1 O0 
I I0 " = --== MOVIMIENTO DEL CUR 
SOR -=- --=== _-====== -= 
120 " 
130 IF INKEY(20)<>-I THEN dx=-4 
140 IF INKEY(IO)<>-I THEN dx=-4:dy= 
2 
150 IF INKEY(3)<>-I THEN dx 4:dy 2 
160 IF INKEY(14)<>-I THEN dy--2 
170 IF INKEY(4)<>-I THEN dx=4 
180 IF INKEY(13)<).-I THEN Ox--4:dy= 
-2 
190 IF INKEY(5)<>-I THEN dx 4:dye-2 
200 IF INKEY(II)<>-I THEN dy-2 
210 IF INKEY(12)-O THEN dx-dx5:dy= 
dye5 
220 x x+d::y y+dy:dx-O:dy 0 
230 IF x>640 THEN -O:GOTO 250 
240 IF <0 THEN 
250 IF "/'00 TIIE? -o:8r  
260 It- y<O THEN y 
270 IF INKEY(21)<>-I THEN x 
2:y 
280 PLOT xya 
290 iF lNKEY(23)=-I AND (xK>ax OR y 
<>ay) THEN PLOT axay,O 
300 ax 
310 ay y 
320 
330  --= -- LAPIZPAPELBORDE, 
RECTAS, CURVAS, CARGAR GUARDAR, . . . 
340 " 
350 IF INKEY(36)=O THEN a a+J:SOUND 
I2010:IF a}-15 THEN a=l 
,60 IF INKEY(68)<>-I THEN :PLOT xy 
O:CALL amem:GOSUB 1120 
370 IF INKEY(7)<>-I THEN PLOT 
:PLOT y,a:GOTO 370 
380 IF INKEY(59) 0 THEN DRAW rxry 
390 IF INKEY(34) 0 THEN SOUND 
ra ( (x-rx)'2+(y-ry)'2O.5:FOR cir 
0 TO 360 STEP IIO/ra:PLOT rx+COS(ci 
r) ra, ry+SIN (cir) ra a: NEXT 
400 IF INKEY(67} 0 THEN SUND 20: 
rx x:ry y 
410 IF INI-:EY(36} 0 AND c(a)>50 THEN 
BORDER INT(a)/JO0) c(a)-INT(c(a) 
/fOOt,lOB:FOR e I TO tOO:NEXT 
420 IF INKEY(36)-O AND c(a)(50 THEN 
BORDER c(a}:FOR e 1 TO IO0:NEXT 
430 IF INKEY(3b} 128 THEN SOUND 1,2 
O:GBSUB 780 
440 IF INKEY(62)=O THEN SOUND I20: 
GOSUB 700 
450 IF INKEY(51)-O THEN SOUND 1,20: 
GOSUB 920 
460 IF INKEY(50) 0 THEN SOUND 1,20: 
PLOT x,y,O:MOVE x,y,a:FILL a 
470 ll- INKY(27)O THEN SOUND 1,20: 
GOSU8 880 
80 IF INl..EY(52)=O THEN SOUND i20: 
GOSUB 74O 

490 I;- INKEY(Ib) 0 THEN SOUND 1,20: 
C! S 
500 
510  -=== I LAMADAS A SUBRUTI 
NAS EN MAQUINA - ---= _===- 
520 
530 IF INIEY(IO)<>-I AND INKEY(9)=O 
THEN SOUND I20:CALL desdemem 
540 IF INKEY(ll)<>-J AND INKEY(9)-O 
THEN SOUND 20:CALL amem 
550 IF INKEY{4)<.>-I AND INKEY(9)=O 
HEN SOUND 1,20:PLOT xy,O:CAIL cam 
bin 
50 IF INKEY(13)<>-I AND INKEY9) 0 
THEN SOUND I 
rre?:CALL aumento:ALL cambio 
570 IF INKEY(14)<>-I AND INKEY(9)=O 
THEN SOUND 1,20:PLOT x,y,O:CALL au 
mento2: CALL cambio 
580 IF INk:EY(5)<>-I AND INKEY(9)=O 
7IlCN SOUND 1.20:PLOT x, ,O:CAI L aura 
ento2:CALL cambio:CALL crre2:CALL 
amnto: CAI_L cambio 
590 IF INI{EY(3)<>-I AND INKEY(9)=O 
THEN SOUND 1,20:PLOT x,yO:CALL mez 
cla 
600 IF INKEY(38)<>-I THEN CALL 4004 
9 
610 IF INKEY(46)<>-I THEN CALL 4011 
9 
620 IF INl:EY(35)<>-I THEN x-X-DECAL 
L i zquierda 
630 IF INKEY(69)<>-I THEN y=y+16:CA 
LL arriba:CALL 
640 IF INKEY(61)<>-I ]HLN x x+BEAL 
L der echa 
650 IF ;NIEY(b4)<>-I THEN y=y-16:CA 
LL abaio:CALL torte 
660 GOTO 90 
670 
680  ========== SUBRUTINAS EN BASI 
690 
700 INK I,p4:WHILE INKEY$<>" ":WEND: 
MODE I:CLS:LOCATG 5, 13:PRINT "Que P 
antalIa Quiere Carga ?":LOCATE 5,1 
5: INPUT "",aS 
710 MODE O:LOAD a$49152 
720 IF c(I)<50 THEN INK lc(1) ELSE 
INK IINT(c(1)/IOO)C(1)-INT(c(1)/ 
100)  100 
730 RETURN 
74D CALL amem:INK Ip:WHILE INKEY$ 

<>"":WEND:MODE I:LOCATE 5, 13:PRIbIT 
"Que Pantalla Quiere Guardar 
ATE 5, 15: INPUT "",aS 
750 MODE O:CALL desdemem 
760 SAVE a$b4915216384 
77D RETURN 
780 CALL amem:INK I,p:WHILE INKEY$ 
<>"":WEND:MODE I:CLS:LOCATE 55:INP 
UT "Que lapiz quiere cambiar 
a: IF la<l OR la;15 THEN 780 
79D  OCATE 57:PRINT "Parpadeo (sin 
)":a$=INKEY$: IF UPPER$(a$)<>"S" ANI) 
UPF'ER$(a$)<>"N" THEN 790 
800 IF UPPER$(a$)="S" THEN 850 
810 LOCATE 59: INPUT "Cual es el nl 
PrO color ? ll,CO: IF co<O OR co>26 T 
HEN 810 
820 INK laco:c(la=co 
80 IF cl)<5A THEN INK 1c(I) ELSE 
INK I, INT (c (I)/IOD , c (1)-INT (c (I)/ 
1 I)l'l) I00 
B40 MODE O:[:ALL desdemem:RETURN 
$50 LOCATE 59: INPUT "Que dos nuevo 
s colores ? "co,sc: IF co sc OR co< 
0 OR sc<O OR co>2b OR sc>2b THEN B5 
880 INK la,cosc:c(la)=co1OO+sc 
870 GOTO SO 
SSO CALl amem:INK Ip:WHILE INKEY$ 
4 >" " : END: MODE 
PUT "Que color pongo de ondo ? " 
f:IF cf<O OR cf>26 THEN 880 
90 INK' O,c:MODE O:CALL desdemm 
900 IF c>20 THEN pf 0 ELSE pf=24 
910 RETURN 
920 WHILE INK'EY$<>"":WEND:TA8 
930 MOVE x,y 
940 aS= INKEY$ 
950 IF INKEY(18)-O THEN TAOFF:RETU 
RN 
960 PRINT aS-" :GOTO 940 
970 " 
980 • -=-==---= INICIALIZACION DE 
LOS COLORES -==== .... =. --=--=- 
990 
I000 FOR × 0 TO 15 
1010 READ a:c(x)=a 
1020 NEXT 
I00 
1040 ..... CARGA DE SUBRUTINA 
SEN MAQUINA = -==-=- ...... =- 
1050 
1060 FOR × 40000 TO 4{1579 

18 ,/ctOHOr AMSTRAD 



1070 READ a$:a VAL("&'+a$):IF LEN(a llena Un Recinto Cerrado Por La Tin 
$)-2 THEN POKE x,a:suma-suma÷a ELSE ta Actual (FILL) 
IF suma=a THEN suma O:PRINT"linea 1550 LOCATE 10,20:PRINT"[C] 
";linea:" correcta":linea=llnea+10: ..................... Carga Una Pant 
x-x-I ELSE PRINT"linea ";linea:" in alla Desde Disc.o 
correcta":ENP 1560 LOCATE 1022:F'RINT"[G] ........ 
1080 NEXT ....................... Guarda Una P 
1090 " antalla En Disco 
1100 " - -== INSTRUCCIONES -=-. 157(.'I LOCATE 2,25:PRINT p$(3) 
=- -== - ====== =====- :==== 1580 IF INKEY$="" THEN 1580 

1110 
1120 MODE 2:WHILE INKEY$K>"":WEND:I 
Nl< I24:INK 0,0 
1130 WINDOW #I3247817 
1140 LOCATE 5,5:PRINT"MOVIMIENTO DE 
L CURSOR 
1150 PRINT#1,p$(1) 
1160 LOCATE 40,7:PRINT"AfriCa 
1170 LOCATE 48lO:PRINT"Arriba y De 
recha 
1180 LOCATE 48,12:PRINT"Derecha 
1190 LOOATE 48,14:F'RINT"Aba]o y Der 
echa 
1200 LOCATE 4DI7:PRINT"Abao 
1210 LOCATE 10 10:PRINT" Arriba 
e Izquierda 
1220 LOCATE IOI2:PRINT" 
Izquierda 
1230 LOCATE 10,14:PRINT" Aba]o 
e Izquierda 
1240 LOCATE 519:PRINT"Combinado co 
n [SHIFT]: dos veces mas lento 

1590 IF INKEY(47)=O THEN RETURN 
1600 WHILE INKEY$<>"":WEND:MODE 2 
1610 LOCATE 5,2:PRINT"OPERACIONES G 
RAFICAS (Continuation) 
1620 LOCATE 104:PRINT"[Q] ...... Det 
ermina E1 Centro De Circunerencia 
0 El Or igen De Recta 
1630 LOCATE I(:,6:F'F;!NT"[WI ......... 
......... Traza Recta 
1640 LOCATE IO8:PRINT"CO] ......... 
Traza Circunferencia 
1650 LOOATE I0, 10:PRINT"CM]-[N] .... 
,..Efectos Especial es 
1660 LOCATE I0 12:PRINT"[T] ........ 
.............................. Intro 
duce En E1 Modo Texto 
]670 LOOATE 10 14:PRINT"[RETURN]... 
................... Velve Del Modo 
Texto A1 Modo Grafico 
1680 LOCATE 10Ib:PRINT"[CLR] ...... 

1250 LOCATE 521:PRINT"Combinado co ................................. 

n Cf5]: cinco veces mas rapldo 
1260 LOCATE 523:PRINT"Combinado co 
n [CONTROL]: deja rastro 
1270 LOCATE 225:PRINT 
128(] IF INKEY$= .... THEN 1280 
1290 IF INKEY(47) 0 THEN 1790 
1300 WHILE INKEY$<>"":WEND:MODE 2 
1710 I CIEATF 5,5:PRII.Ir"OF'ERACIONES 6 
RAFICA£ (Todas Combinadas co 
1320 WINDOJ #i,i',478 17:PRIN'r#1,p 
13( CATE 407:F'RINT"Guarda La PG 
Fn La PM 
1340 (OCArF 48, 10:F'RINF"Superpone L 
a PG A i_a PM 
3bO i.OCATL 48, 12:PRINT"IntercamDia 
F'G Y PM 
1360 I OCATE 4814:PRINT"Aumenta A L 
o Lar go Y A Lo Ancho 
1370 LOCATE 40, 17:PRINT"Aumenta A L 
o Anho 
1380 iOCATE 10,10:PRINT" Exhlbe La 
PM En La PG 
39r LOCATE I0, 14:PRINT" Aumenta 
A Lo Cargo 
I00 LOCATE 5,20:PRINT"PG: Pantalla 
Gra i ca 
1410 LOCATF 522:PRINT"PM: Pantalla 
De La Memoria 
1420 LOCATE 2,25:PRINT 
1430 IF INKEY$ "" THEN 1430 
1440 IF INKEY(47)=O THEN 1790 
1450 WHILE INKEY$<>" ":WEND:MODE 2 
1460 lOCATE 5,2:PRINT"OPERACIONES 
RAFICAS (Continuaci 

.B 
orra Pantalla Graflca 
1690 LOCATE 10,18:F'RIN]"[.] ........ 
........ Hate Intermltente El Cursor 
Para Su Loralizacion 
695 LOCATE IO,20:PRINT"[TAB] ...... 
.............................. Recup 
era Las Instrucciones 
1700 LOCATE 225:PRINT 
171(} IF INKEY (47) -O THEN RETURN 
1720 IF INKEY$="" THEN 1700 
1730 IF INKEY(47)=O THEN RETURN 
1740 WHILE INKEY$<'>"":WEND:MODE 2:L 
OCATE 53:F'RINT"RECOMENDACIONES":PR 
INT 
1750 PRINT" Los eects especial 
es son de ptlmos resultados en la 
aplicacion a texto y a rectas (en 
general a trazos mas o menos finos) 
pudiendo set aumentado el re- sul 
tado y repetido el proceso. 
1753 PRINT" Manteniendo presionadas 
varlas teclas slmultaneamentelas 
operaciones corres- pondientes se 
suceden alternativamente. (Pruebese 
,pot e]emplo,a mantener pulsa- do 
simitaneamente [5][9]+[W]) 
1755 PRINT:LOCATE 5,13:PRINT"ADVERT 
ENCIAS 
176£ F'RINF:PRINT" El resultado d 
el movimiento de imagenes no es el 
esperado cuando estas rebasan 
los limites de la pantalla. Recuerd 
e que el aumento de imageries a Io 
largo y a Io ancho actua sobre i 
a mitad derecha e inferior respecti 
vamente 

147(I LOCATE IO,4:PRINT"[P] ......... 1763 PRINT" Cuando se cambia el col 
..................... Selecciona El or a un lapiz nal papel o se carga 
Clor Del Papel n o se gurdan imag- nes en disco% 
1480 LOCATE IO,6:PRINT"[L]+[CONTROL la pantalla actual so guarda aut'oml 
] .................... Selecciona E1 tiramente en la memoria y se pie 
Color Del Laplz rde lo queen esta hubiera. 
149(I I OCAE IO,8:PRINT"[L ......... 1765 PRINT" Cuando el cursor rebasa 
............................... Sele los limites de la pantalla aparece 
cciona El Lapiz pot el lado opuesto. 
1500 LOCATE 10,IO:PRINT"[A] ........ 1770 LOCATE 523:PRINT "No olvide q 
................... Sube. Toda La Im ue las INTRUCCIONES se recuperan o 

agen Och(. F'xels 
1510 LOCATE 10,12:F'RINT"[B] ........ 
.................... Bj ]oda La Im 
agen Ocho Pixels 
1520 LOCATE 10,14:PRINI"[D] ........ 
....... Corre Toda La Imagen Dos 
els A l.a Derecha 
1530 LOCATE 10,16:PRINT"Ill ........ 
..... Corre Toda L Imagen Dos F'i×el 
s A La Izqulerda 
1540 LOCATE 10,18:PRINT"JR] ...... Re 

n [TAB] 
1780 IF INKEY$ .... THEN 1780 
1790 IF c(I)<50 THEN INK Ic(1) ELS 
E INK 1,INT(c(1)/100),c(1)-INT(c(1) 
/I00)I00 
1800 IF cf<50 THEN INK O,cT ELSE IN 
K OINT(cf/1OO)cf-INT(cf/lO0)lO0 
1810 MODE O:CLS:CALL 40000:RETURN 
1820  
1830 • --====== COLORES Y CODIGO M 

AQUI NA - -=- -====- -===-- = 
1840 • 
1850 DATA 0,24.2D,626 I28 10, 12 
180 DATA 1100,c0,21204e,01004 
OedbOc9 II204e210,c0,01,00, 
40, ed,O, c9,21 20,4E, 01,00,40,36,00 
? OB 3E,00,BO,20,F7,Bg,C8,18,F3,0 
O 00 00 ddb 
I70 DATA 00,00,00,0100,4021,00'c 
O, 3e, O0be, 28 01,34 23, 0, b9, 20, f5, 
b8,cO c3,77,9c II, 0C), cC 21, C)l, cO, 01 
00,40 ed,bO,cg II,00,c0,21,50c00 
f,edb8,cg II 00,00 21, DO, f f, Ol. bO, 
3  ed  bO, c9,01 00, 40,21, O0 cO, 3e 00 
, be, 28,01  35, 23, Obbg 20 5 bO, c8, c 
3,bd,gc, 1330 
1890 DATA Ol5000ed,bO,e5,62,6bO 
i, 00 08 eb 09, eb, 01,51,00, ed, bO, el  
c9,01,b0,.07,09., eb,.01,01.0809,, eb.cd 
 cd, 9c, c9 01, bO 07,09, cd cd,9c, cd,e 
29ccd,e2,oc,cd,e2,9c,cg,19/3 
1900 DATA ?,60c4 ll,20.4ecd4,9 
50,50, Ib34 
1910 [ATA cd,iO,gc21,aO,cS,11,aO5 
0,52,cd0,9c21.90c6 II8052cd 
1920 DATA ll,dO,52,cd,O,gc,21,eO,c 
,54 cal, 09c, 21 80,c7, 11  60 54cd  
4,9c, II bO,54cd, 0,9c c9, Ib89 
1930 DATA 0021,00C0 II20,4E010 
0 40.7E. 32,A7,9D, IA. 77 3AA79D 12, 
23 130B3EOOBO20,EE,BgCO I8EA 
1940 DATA Oe. 19,06,28,1ae6,aa.77.0 
, b6 77.23, la, e6 55 77 07, b6, 77 23 
13 10edOd,3eOObgcOe5eb,1128 
O,cd,c7,9d 21,2056 II,00c8cd,c7, 
9d, 21,20,5e, 11 00 1698 
1950 DATA dOcd,c7,gd,212066,11O 
O dO cd c7 9d, 21,20 e, 1 lO0eOcd 
c79d,212076, 11O0eOcd,c79d,21 
1,00Bcdc79d,c9 172 
1960 DATA Ia77 1828 lae6aab67 
7 182 a,e6,55,b6.77,c3,62,ge,21, 
00c0 l,20,4e,OlO0,40Tee00.28 
 d  e6 55. be 28. de 7e, e6 aa, be, 28d 
,23 13,0b3e,OO,bB,2,eO,b9cO,18 
e4 17d8 
1970 DATA 06,5021.00,C0,3600.23 1 
O,FB,Cg,06,5021,80,3b0023IO 
FB C9,787 
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.  UAI"RO JUEGO$ EN DISCO 
DE DE$1NG-DE$1NG 

Una nueva casa en 
el mundo del 
software; Desing- 
Desing. lanza un 
disco con cuatro 
juegos: On the 
run; Dark star; 
Tank busters y 
Halls of the things. 
aprovechando de 

esta forma la 
capacidad del 
disco. 

progromos es- 
t6n distribuidos de Forma queen Ja 
care B, se encuentro soJamente Oh 
the run, esfando los fres restantes si- 
tuados en la caro A. 
Pare e£ectuar la carga de cuel- 
quier programa de la care A, tene- 
mos un men0 de opciones, en el cue[ 
podemos eiegir en primer lugar el 
idiome en que queremos ies insfruc- 
clones, encontr6ndose eforfunada- 
mente el espao] entre ellos. 
Una vez seleccionedo el idiome, 
podemos elegir entre cerger direc- 
femente cualquiera de los juegos, o 
leer sus insfrucciones. 

ON THE RUN 

Un intr@pido astronauta se encuen- 
tra en apuros, el generador de su na- 
ve gal6ctica se ha quedado sin ener- 
gia, y corre el riesgo de no poder es- 
capar del planeta den el que ha ate- 
rrizado. 
Para conseguir abastecer de ener- 
gia a su generador, debe encontrar 
en las rec6nditas profundidades del 
planeta, las seis c6psulas energ@ti- 
cas. 

Para Io cual solamente dispone de 
un tiempo de una hora, en caso de 
no conseguir las seis c6psulas el ge- 
nerador de su nave se desintegrar6 
y todo ester6 perdido. 
La tarea de nuestro hombre no es 
tan f6cil, pues las galerias por las que 
nos movemos, estn pobladas de 
enemigos hostiles que nos acosan 
constantemente y de los cuales debe- 

mos deshacernos a golpe de 16ser. 
Un programa de los tipicos de b0s- 
queda, de construcci6n laberintica, 
en el cual el decorado por el que nos 
movemos es una selva con setas gi- 
gantes y extra,as flores. 
Nuestro hombre deber6 utilizar su 
propulsor de espalda para ascender 
en el airey Ilegar a los escalones su- 
periores del leberinto. 
Los gr6ficos son de tamao gigan- 
tesco, realizados en forma multico- 
Ior, consiguiendo un dibujo un tanto 
infantil, pero efectivo. 
Las instrucciones, aconsejan dispa- 
rar sobre todo los que se mueva, co- 
sa que debemos respetar fielmente, 
pues el contacto con cualquier ele- 
mento hostil nos resta energia. 
Eliminar estos molestos bichos, por 
otra parte incrementa nuestro mar- 
cador, cosa que siempre es gtil para 
superar nuestro r@cord. 
La energia se recupera recogien- 
do los objetos que encontramos a 
nuestro paso. 
Un juego de bOsqueda con tiem- 
po limitado yen el que conocer a la 
perfecci6n las caracteristicas del la- 
berinto, es fundamental. 

DARK STAR 

El primer programa de la cara A, 
es una aventura gal6ctica. Evil Lord, 
el m6s malvado entre los tiranos de 
las estrellas, amenaza con hacerse 
con el poder en su universo. 
En nuestras manos est6 detener su 
creciente poderio, o morir en el era- 



peo, antes de que destruya todo 
vestigio humano en la galaxia. 
Pilotamos una nave intergal6ctica, 
con la que debemos desplazarnos de 
planeta en planeta en busca de las 
bases del gran tirano. 
El mapa t6ctico, una vez que ha- 
Ilamos penetrado en la atm6sfera de 
cada planeta, nos revelar6 la posi- 
ci6n de las bases y zonas de influen- 
cia que se hallan en su superficie. 
Un programa de navegaci6n es- 
pacial, con una construcci6n muy 
sencilla, en el cual el punto de mira 
de nuestro sistema de fuego 16ser, 
aparece constantemente en pantalla 
listo para aniquilar Io que encontre- 
mos a nuestro paso. 

TANK BUSTERS 

Un aut6ntico juego de tres dimen- 
siones, basado en el mitico Battle Zo- 
ne de ATARI, el juego que revolucio- 
n6 el mundo de las m6quinas de bi- 
Ilares, dejando a los comecocos co- 
mo una pieza de museo. 
ATARI, la productora de los mejo- 
res juegos para megaordenadores, 
con este programa dio comienzo a 
la era de los simuladores de comba- 
te, consiguiendo una sensaci6n de 
perspectiva y realismo tan grande, 
que versiones mejoradas de este pro- 
grama son utilizadas para el entre- 
namiento de los artilleros de carros 
de combate. 
Volviendo al juego de Desing- 
Desing, dirigimos nuestro tanque por 
un paisaje montafioso, en el cual el 

punto de mira de nuestra torre de ti- 
ro preside la pantalla. 
Nuestro enemigo es detectado por 
el radar, apareciendo un minOsculo 
punto verde que marca su posici6n, 
nos dirigiremos hacia 1 y tras cen- 
trar el punto verde en el trazo verti- 
cal de nuestra mira, observamos c6- 
mo aparece en el horizonte. 
Seggn nos aproximamos hacia 
nuestro blanco, ste aumenta de ta- 
mao, con impresionante realismo, 
si est6 en marcha observaremos c6- 
mo pasa delante de nosotros a gran 
velocidad, si est6 parado; cuidado 
pues girar6 sobre si mismo hasta te- 
nernos en su punto de mira y dispa- 
rar6. 
Para aumentar el efecto tridimen- 
sional, elementos geom6tricos como 
prismas y pirmides de cristal apare- 
cen en nuestro camino, amenizando 
la marcha. 
Disponemos de misiles guiados y 
granadas antitanque. 
Un programa de aniquilaci6n to- 
tal, con excelentes efectos tridimen- 
sionales, sin duda el mejor de los 
cuatro. 

HALLS OF 
THE THINGS 

Otro programa de laberintos, pe- 
ro muy distinto al que ocupa la cara 
B, si en 6ste los grficos eran de ta- 
mao gigante, en Halls of the things, 
los gr6ficos son mingsculos, teniendo 
nuestro hombre una altura de un 
centimetro. 
El objetivo en esta ocasi6n, es en- 
contrar los siete anillos escondidos en 
los siete niveles m6s altos de la torre 
de la muerte. 
Una vez Iogrados debemos reco- 
ger la Ilave que se encuentra en las 
mazmorras subterr6neas, y escapar 
con ella. 
Distintos objetos y posiciones m6- 
iCas, nos ayudar6n a recuperar las 
erzas perdidas en el combate con 
los peligrosos moradores de los co- 
rredores y salas, no olvides que to- 
do Io que se mueve va a por ti. 
Podemos ejecutar todas las accio- 
nes tipicas de este tipo de juegos co- 
mo: recoger objetos, soltarlos, abrir 
y cerrar puertas y corredores, dispa- 
rar, lanzar hechizos, curar nuestras 
heridas, etc. 
La sencillez de los gr6ficos, nos ha- 
ce pensar en un programa de los 
pertenecientes a la primera genera- 
ci6n de juegos de ordenador, anti- 
cuado pero entretenido. 

HORRIBLE 
UN ROLLO 
PASABLE 
BUENO 
MUY BUENO 
OBRA 
MAESTRA 
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En tu kiosco te espera 
algo muy inteligente 

El especial Amstrad n." 2. Incluye una cinta con un lenguaje 
LISP completo que te permitir comprcnder y dominar las tcnicas 
ms complejas dc la inteligencia artificial. 

iDale inteligencia a tu Amstrad! 

J/#" "/ ' gl I 
t 

,, I , ... ]J 

A I. N, , NLfESTRO 
PUEDE$ GA ,"  " 
(P(-6128 (ON 
SOLO CARGAR LA CINTA 

FD 



El" "c 
• o oFo eno e o 

oncebido para sustit  
o 1o ;  " • de escribi. 

129.901 

Pts.+IVA 

AMSTRAD 

CW8256 

UN OMPLETO EQUIPO QUE INCLUYE: 
* Undad Central (256 K RAM) • Teclado en castellano 
• Undad de dsco (180 K pot cara) • Pantalla de alta 
resolu¢On • Impresora alta cahdacl (NLQ) 
• Programas: • Procesador de tex[os, s=stema Operat=Vo 
CP/M Plus, Malla d Basle con JET SAM para hcheros 
nclexados, lengu.aje DR LOGO. 

PROGRAMAS PROFESIONALES 
• Contabhdades • Almacenes • Facturacon • HOJA 
DE CALCULO: Multipln, Supercalc 2 Cracker. 
Plannercalc BASES DE DATOS DBase II, Amsfil- 
Flexfile. Boriar. LENGUAJES: Cobol, Fortran, Pasc, 
MT +. Pilot. etc 

Tambi4n disponible la versi6n PCW 8512, con 512 K RAM y 2 °- disco de 1 MBYTE incorporado. 
P.V.P. 169.900,-- Ptas. + IVA 

SOLICITE DEMOSTRACION EN: 
OvisiOn nformtica de £.e., Dws6n 'Ue de C;A, LERIAS, 
Tiendas especiahzadas en mformatica y Equipos de oficma. 
NOTA: El Amstrad lamben puede set utilizado como "Terminal Intehgente" 
de 8randes equipos informbcos, 

L GRUPO INDESCOMP 
Avda del ,4edterraneo. 9 28007 Madr,d T61ex 47660 lels.: 433 45 48- 433 48 76- 433 4 4 58- FAX- 433 24 50 Delegaci6n en Catalua. C,. Tarrag0na. 110 tel 32510 58.08015 Barcelona 
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JNFORMAT 86: TODA LA 
INFORMATICA EN 
BARCELONA 

D[a a dla, la inform6tica va cobrando m6s 

importancia en nuestras vidas. La iniciat.iva de las 
ferias como medio de acercar al usuano todo el 

producto del sector de una sola vez s61o puede 
cafificarse como de buena. $i adem6s, como en 
esta ocasi6n la organizaci6n de la feria corre a 
cargo de una entidad como es la Feria de 
Barcelona, se tiene una garantia. 
INFORMAT- 86, con casi 150 expositores 
reunidos alrededor de m6s de ocho rail metros 
cuadrados, ha sido sin lugar a dudas el 
acontecimiento del rues para los usuarios y 
fan6ticos de la inform6tica. 

urante cinco dias, 
de113 al 17 de mayo, Barcelona se 
convirti6 en el centro de atenci6n del 
sector inform6tico. Distribuidores, fa- 
bricantes y ve ,dedores tuvieron la 
oportunidad de ofrecer sus produc- 
tos en los pabellones de la prestigio- 
sa Feria de Barcelona. INFORMAT, 
en la edici6n de este ao ha venido 
a confirmarse como una feria de vo- 
caci6n verdaderamente profesional. 
Liberada de intrusos faltos de inter6s 
por un precio de 1.000 pesetas la en- 
trada, precio quiz6 excesivamente 
exagerado, el desarrollo de la feria 
ha tenido para los que asi Io han 
querido un car6cter elitista cerrado 
y con gestos ocasionales de conven- 
ci6n. 
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Como en ocasiones anteriores, IN- 
FORMAT 86 ha venido a confirmar 
algo que ya todos sabiamos: una 
continua tendencia en el sector ha- 
cia una reducci6n considerable del 
precio final del producto, asi como 
la constante aparici6n de equipos al- 
tamente competitivos con un precio 
en ocasiones inferior al de sistemas 
con un nivel inferior de prestaciones. 

AI margen de los productos ya 
sicos, compatibles PC, hojas de c61- 
culo, procesadores de textos, etc., la 
atenci6n de la feria, o al menos Io 
que verdaderamente podia gan6rse- 
la, podriamos dividirlo en dos blo- 
ques b6sicos; 
Gr6ficos y ordenadores 
-- Inteligencia artificial 
-- Rob6tica 

RING 
IAU[RE 

' IGRESO ESPANOL [ 
12 13 Mayo 1986 

, IPOSIUM PROFESI 
' LIDAD Y PERSPEC 
14 15 16 Mayo 1986 

• r. enadores y v=deo [ 

En diseo asistido por ordenador 
y procesamiento gr6fico, el abarata- 
miento de la memoria, sigue propor- 
cionando cada vez mayores resolu- 
ciones, con una gama de colores mu- 
cho m6s amplia. Sin embargo, el 
adelanto m6s significativo Io consti- 
tuye la adaptaci6n del video como 
perifrico del ordenador. Gracias a 
ste podemos utilizar la imagen del 
video de dos formas totalmente dis- 
tintas, conforme nuestras necesida- 
des Io exijan. En primer lugar, pode- 
mos utilizar la imagen anal6gica co- 
mo rondo, imprimiendo en primer 
piano mediante el ordenador; la otra 
posibilidad consiste en dJgJtalJzar 
una de las im6genes para despu6s 
proces6ndola pot medio del ordena- 
dor modificarla en cualquiera de sus 
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aspectos con un control sobre ella 
pr6cticamente absoluto. 

En esta linea, la gama MSX, pre- 
sentaba los primeros modelos de su 
segunda generaci6n MSXo2. 
B6sicamente la diferencia de estos 
equipos con sus predecesores, est6 
basada en una mayor resoluci6n, 
como la incorporaci6n de un digita- 
lizador, junto a la unidad mezclado- 
ra. El precio total del equipo ronda- 
r las 180.000 pesetas. Se ha susti- 
tuido el Z80-A por un Z80-C, que si 
bien constituye un considerable aho- 
rro en el consumo de energia, no de- 
ja de ser, por desgracia, un Z80. 
Excepcional rue nuestro primer 
contacto con el AMIGA, 01timo mo- 

delo de Commodore y que constitu- 
ye una verdadera revoluci6n por 
Hardware. Tres coprocesadores, li- 
beran al 6800 de Motorola, micro- 
procesador del Amiga, de las tareas 
lentas y tediosas de gesti6n de pan- 
talla, incorporando incluso por 
Hardware movimiento de sprites, ro- 
taciones y otras exquisiteces capaces 
de satisfacer al m6s sibarita. El direc- 
cionamiento de memoria directo al- 
canza la cifra de ocho megas y me- 
dio y la calidad de imagen, m6s que 
por su resoluci6n, 640 x 400 pixels, 
asombra pot su aaleta de color, 

.1. 

4096 colores. El precio de venta en 
Espaa a0n no se conocia, aunque 
en Gran Bretafia donde ha comen- 
zado ya a distribuirse con notable 
6xito, el precio base ronda las 
310.000 pesetas. Naturalmente po- 
driamos extendernos pginas y p6o 
ginas sobre el grafismo por ordena- 
dor, y las cosas que alli vimos, sin 
embargo el resto de los equipos 
constituian ya, por su precio, parte 
de Io puramente profesional y fuera 
del alcance del aficionado medio. 

nteligencia Artificial 

Verdaderamente sorprendente era 
ver c6mo ejecutivos medios y gentes 
de despacho se sentian atraidos por 
este tema, y soportaban con un in- 
ter6s desmesurado, una charla sobre 
el tema que s61o era ofrecida en in- 
gl6s o franc6s. Si, curiosamente en 
toda la feria no existia una persona 
capaz de dominar y comprender las 
t6cnicas de la IA y que conociese el 
castellano. Bromas a parte, la facili- 
dad de uso de estos programas que 
en ocasiones disponen de un interfa- 
ce de usuario muy pr6ximo al len- 
guaje natural, junto a la potencia y 
elegancia de los sistemas expertos, 
cada vez ms de moda, hacian de 
este tipo de programas algo verda- 
deramente impresionante. 
Tuvimos ocasi6n de asistir a dos 
demostraciones, la primera en el 
Stand de AMAIA systemes informa- 
tiques, con sede en Bayonne (Tel.: 
33 59 55 10 01). Sobre un equipo 
u I 
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compatible PC, tuvimos ocasi6n de 
jugar con un programa que si bien 
na tiene la utilidad de una hoja de 
c61culo, si supone un verdadero ade- 
lanto dentro del campo de la IA, un 
reconocedor de letras. El programa 
estaba realizado en LISGLOG, una 
versi6n de Prolog a la que se le han 
incorporado algunas de las facilida- 
des que soporta el LISP en el trata- 
miento de listas, algo muy parecido 
al conocido Microprolog. Aparte de 
este lenguaje, Ileva incorporado 
tambi6n un m6dulo de programa- 
ci6n visual mucho m6s r6pidamente 
que Io que permitiria el PROLOG. El 
programa de demostraci6n que ofre- 
cian, el reconocedor de letras, per- 
mitia escribir en pantalla, mediante 
rat6n, una letra con el tamafio y for- 
ma que nos apeteciese, tras varios 

segundos de espera encontr6bamos 
en pantalla las deducciones del pro- 
grama, algo asi como: 
Es una ¢ con un 77 por 100 de po- 
sibilidades. 
Es una O con un 3 por 100 de po- 
sibilidades. 
Resto de posibilidades desprecia- 
ble. 
Naturalmente nosotros habiamos 
escrito algo parecido a una C. 
Si el garabato escrito en la panta- 
Ila por el usuario no era parecido a 
ningn car6cter conocido, tambi6n Io 
advertia con un informe de car6cter 
no reconocido. El equipo utilizado 
era un compatible P¢IAT con un 
89286 como procesador y una me- 
moria del mega. La pantalla tenia 
dos posiciones, una horizontal y otra 
vertical, que facilitaban la visualiza- 
ci6n. El software de base que puede 
adquirirse con el equipo, consiste en: 
LISP 
PROL©G 
LISLOG 
MOTOR DE INFERENCIA 
PROCESO DE LENGUAJE NATU- 
RAL 
BLAISE (lenguaje de programa- 
ci6n de la unidad de visualizaci6n). 
El otro stand donde se hacia gala 
de los facilidades de la IA, era el de 
SPERRY, en esta ocasi6n sobre un 
equipo con un sistema operativo pro- 
pio y sobre el que corria un Prolog 
compilado verdaderamente r6pido, 
en comparaci6n con los hasta aho- 
ra conocidos. Desarrollado en este 
/ 

contraba el avi6n ideal conforme al 
n0mero de billetes que de coda cla- 
se existian. 
Por desgracia, este tipo de aplica- 
ciones quedan a0n lejos de nuestras 
posibilidades, aunque por cu6nto 
tiempo... ? 

Robotica 

leguaje tuvimos ocasi6n de compro- 
bar la eficiencia de un generador de ilk /' 
sistemas expertos, asi como utilizar 
uno de estos sistemas ya generados. 
EIsistema encontraba el avi6n ideal r" _ 
conforme alas preferencias de los / 
pasajeros, al parecer este problema " 
no es sencillo en los EE.UU., donde" 
no existen tres p0nicas clases de bi- 
Ilete como es el caso de nuestro pais. I/ l/ 
De este modo y tras un considerable 
n0mero de preguntas que habian de 
ser respondidas por el operador, de 
forma muy c6moda, el programa en- 

Z4U//us, S.,. 
La rob6tica es otra de las activida- 
des dentro de la inform6tica, que se 
presenta con alentador futuro, com- 
plicados tornos y brazos m6viles mo- 
vidos al unisono por un simple com- 
patible PC. Pudimos observar tam- 
bi6n algunos, mucho menos preten- 
ciosos, que con un car6cter edu¢otJ. 
voy I'dico se ofrecian al usuario por 

• I 



un precio m6dico. Tal era el caso del 
fabricado por SVI, s61o compatible 
con equipos spectravideo, y que con- 
sistia en un brazo realizado en pl6s- 
rico amarillo y sobre el que el usua- 
rio desde el teclado o joystick impo- 
nia un control bastante preciso y a un 
precio de 10.500 pesetas. 
Pronto, muy pronto, cualquier or- 
denador dom6stico ser6 capaz de 
mover este tipo de artefactos y no es 
ciencia ficci6n pensar que puedan 
traernos las zapatillas o las galas ol- 
vidadas como siempre sobre la me- 
silla. 

:Y de los Hom: 
Com.uters .u? 

Aunque la feria estaba destinada 
fundamentalmente al usuario profe- 
sional, habria sido una necedad ol- 
vidar que el ordenador dom6stico es- 
t6 siendo cada vez m6s utilizado pa- 
ra resolver pequeos problemas y 
permiten seguir trabajando en casa 
sin necesidad de tener una furgone- 
ta para Ilevar el equipo de la empre- 
sa a casa y de casa a la empresa. 
El lider de la feria en este aparta- 
do fue sin duda MSX, seguramente 
motivado por un momentneo letar- 
go de los productos Amstrad y que 
se encontraban poni6ndose a punto 
y prepar6ndose para la feria espe- 
cializada y dedicada integramente a 
su persona y que se celebrar6 en 
Madrid durante los dias 23, 24 y 25 
de mayo. No obstante tuvimos oca- 

L 

si6n de utilizar unos productos nueo 
vos de PROTO E especialmente dise- 
ados para la familia CPC por la 
prestigiosa firma alemana VORTEX. 
Una ampliaci6n de memoria de 512 
K para el 464 nos hizo dudar de Io 
que veian nuestros ojos al ver un 
efecto zoom sobre un conjunto de 
Mandelbrok Ileno de colorido y psi- 
codelia. Tambi6n presentaban una 
unidad de disco que convierte al 
Amstrad en un equipo verdadera- 
mente profesional, con una capaci- 
dad de almacenamiento de un me- 
ga. La unidod se presentaba en dos 
versiones 51/4 y 31/2; con idntica ca- 
pacidad paro ambos formatos. 
En el afortunado caso de que us- 
ted sea poseedor de un 464, (... 
podr6 concectar dos unidades, con 
Io que dispondr6 de dos megas de 
memoria de almacenamiento m6s el 
medio mega de memoria central, si 
se decide tambi6n por la ampliaci6n, 
verdaderamente impresionante. 

Los productos Sinclair no se en- 
contraban en la feria, 16gico si con° 
sideramos la 01tima sacudida recibi- 
da por la compra de Amstrad de los 
derechos sobre la compaia. Se ru- 
moreaba la fabricaci6n de un nue- 
vo modelo, id6ntico al 48 K, con te- 
clado profesional y con la innovaci6n 
de un cassette incorporado, algo 
muy acorde con la personalidad de 
los productos Amstrad. 

En otro orden de cosas encontrao 
mos Io tipico en estas ferias, impre- 
sora, plotters y consumibles altamen- 
te sofisticados y con una presenta- 
ci6n cada vez m6s impecable. Lejos 
est6n ya, aquellos artefactos cuadra- 
dos de esquinas puntiagudas y sin 
ningOn esmero est6tico. Impresoras 
transparentes, discos de colores .... 
constituian la afirmaci6n de queen 
inform6tica la arruga tambin es be- 
Ila. 

Informat 

Tuvimos ocasi6n de observar el 
funcionamiento de un revolucionario 
plotter, tanto por su precio como por 
su concepci6n. Como si de un peque- 
o robot se tratase y unido al orde- 
nador por un largo cord6n umbilical, 
PENMAN se desplaza sobre una ho- 
ja con increible precisi6n dejando a 
su paso una estela de color. La com- 
patibilidad con cualquier equipo es- 
t6 asegurada por su conexi6n 
RS232. Tambin puede utilizarse co- 
mo rat6n de gran precisi6n o como 
tortuga en nuestras sesiones de LO- 
GO. Es maravilloso verle buscar los 
bordes de la hoja coda vez que va 
a comenzar una nueva impresi6n im- 
pidi6ndose a simismo, una vez torna- 
dos la oportunas referencias salirse 
de la hoja y rayarnos la mesa. El preo 
cio, algo menos de 100.000 pesetas, 
aunque pudiera parecernos algo ele- 
vado, no Io es si consideramos el pre- 
cio medio de cualquier plotter. 
Aunque oculta en un stand de difi- 
cil Iocalizaci6n, la verdadera bomba 
de precios del INFORMAT, la cons- 
tituy6 un nuevo compatible PC, pues- 
to en la calle por SVI, 256 K de me- 
moria central, una unidad de disco 
de 360 Ky Io que es m6s importante 
compatibilidad 100 por 100 asegu- 
rada, y todo ello, naturalmente mo- 
nitor y teclado incluido, al precio de 
157.000 pesetas. Una verdadera 
ganga. 
En resumen INFORMAT 86 consti- 
tuye una feria bien organizada, se- 
ria e interesante para profesionales 
y aficionados, que de vez en cuan- 
do se animan a quitar la vista de sus, 
monitores y a mirar con ilusi6n ha- 
cia adelante. 
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MASTERMI D 

Esta semana as presentamos el cono¢ido juego de los colores, aplicado a 
n6meros. 
Consiste en adivinar el c6digo secreto formado par 4 ¢ifras distintas. 
Tenis !0 oportunidades para acertarlo. 

In la pantalla aparecen 
sucesivamente, la cifra introducida, cu6ntos 
ngmeros de los que la componen que est6n in- 
cluidos en el c6digo y los que est6n bien situao 
dOS. 
Reta a tu mente 16gica y descubre 
el c6digo secreto creado par tu Ams- 
trad. 
El programa realiza Io siguiente: 
10-40 REMs que nos hablan del titulo. 
50 Inicio de la definici6n de ventanas y 
funciones. 
60 Se define la fun66n, <NUMERO$$(X)>, 
coma la cadena de un car6cter, tomado par 
la derecha (RIGHTS) de la expresi6n literal ob- 
tenida al convertir, con el comando STR, el 
mero oo) en variable alfanum6rica. 
70 Creaci6n de la ventana #1 situada y 
dimensionada seggn los par6metros indicados. 
80 REM que indica la preparaci6n del c6- 
digo secreto. 
90 Se asigna a la variable con subindice 

<A(! ))), (elemento 1 de la matriz A)), el va- 
lor entero del nOmero aleatorio que has de- 
vuelve RND multiplicado par 10. Nos dar6 un 
valor comprendido entre 0 y ?. 
! 00 Igual pero para la variable A(2)>>. 
! 10 Se especifica que si las dos son igua- 
les la ejecuci6n del programa salte a la linea 
100. 
! 20 Se calcula <.A(;3)) igual queen ca- 
sos precedentes. 
! ;30 Siesta Oltima variable es igual alas 
dos anteriores la ejecuci6n vuelve a la 16ea 
120. 
!40 Se da valor a A(4) igual que an- 
tes. 
! 5g Si es igual a alguna de las arras tres 
variables retorna a la linea 140. 
!60 Bucle FOR...NEXT para la creaci6n 
del c6digo. 
170 Se asigna a la variable A$) (c6di- 
go secreto) el valor obtenido de esta misma 
variable m6s la cadena literal conseguida con 
la funci6n <NUMERO$C. (A(I)). 
180 Acaba el ciclo FOR...NEXT. 
!90 Borramos la pantalla. 
200 Visualizaci6n de un texto orientativo. 
210 REM que has indica la entrada de da- 
fos. 

230 CLS #I 
20 REM MICROHOBBY AMSTRAD ' 
240 INPUT #I "NUNERO "X$ 
30 REM MASTERMIND 250 IF LENrX$<4 THEN GOTO 23 
50 REM DEFINICION DE FUNCIONES 260 N=N+I 
Y VENTANAS 

60 DEF FN NUMERO$(X)=RIGHT$(ST 
R$(X),I) 
70 WINDOW #1.15,30,20,20 
80 REM PREPARACION DEL CODIGO 
SECRETO 
90 A(1)=INT(RNDIO) 
100 A(2)=INT(RND$iO) 
110 IF A(1)=A(2) THEN DTO 100 
120 A(3)=INT(RNDIO) 
130 IF 
THEN GOTO 120 
140 A(4)=INT(RNDtlO) 
150 IF 
OR A(3) A(4) THEN GDTO 140 
160 FOR I=I TO 4 
170 A$=A$+FN NUMERO$(ACI)) 
180 NEXT 
I70 CLS 
200 LOCATE IO4PRINT "NUNERO 
ACZERTOS':PRINT 
210 REM ENTRADA DE NUMEROS 

270 REM CONPARACION DEL NUMERO 
CON EL CODIGO 
SO FOR I=1 TO 4 
290 IF HIDStX$I,I=NID$(A$I 
I) THEN L=L+I 
300 IF MID$(X$.II=MID$(A$=I 
I) OR MID$(X$I,I) MID$(A$.2I 
) OR MID$(X$oII)=MID$(A$3I) 
OR MID$(X$.II)=MID$(A$4I) 
THEN B=B+I 
310 NEXT 
320 REM EXPOSICION DE RESULTAD 
OS 
330 PRINT TAB(II);X$;SPC(6)IB; 
'B";SPC(1);L;"L" 
340 IF L=4 THEN GOTO 370 
350 IF N=IO THEN GOTO 380 
360 OOTO 220 
370 LOCATE 718:PRINT 'ACERTO 
MUCHAS FELICIDADES- 
3S0 PRINT I"ERA "tA$ 
390 WHILE INKEY$="":WEND:RUN 

220 Los variables (cB>> y coL)) roman el va- 
lor O. Son los que has indican el nOmero de 
cifras correcto y el de las que est6n colocadas 
en su lugar. 
230 Limpiamos la ventana #1. 
240 Se pregunta el nOmero a introducir 
y se le asigna, coma cadena literal, a X$>>. 
250 Comprobamos que se han tecleado 
cuatro cifras. En caso contrario el ordenador 
nos pide un nuevo data (vuelve a la linea 230). 
260 Fn cada paso la variable N)> -que 
contiene el nOmero de veces que hemos inten- 
tado averiguar el c6digo- se incrementa en 
una unidad. 
270 REM. Nos dice que comienza 
el an61isis. 
280 Ciclo FOR...NEXT con 1) coma va- 
riable de control. 
290 Mediante el bucle y con el comando 
MIDS se comparan los caracteres que ocupan 
la misma posici6n dentro del nOmero introdu- 
cido (<(X$) y el c6digo (ccA$>)). Si los ca- 
racteres de esas posiciones son iguales la va- 
riable <L) se incrementa en uno. 
300 Analizamos si la cifra que ocupa la 
posici6n 1 dentro de la cadena XS>> es 
igual a alguna de las cuatro del c6digo. En ca- 
so afirmativo, <B> aumenta en uno. 
310 Finaliza el bucle FOR...NEXT. 
320 REM que informa de la exposici6n de 
los resultados. 
330 Se escribe en la columna 11 el hOme- 
ro introducido, dejando 6 espacios (SPC)la va- 
riable B y dejando un espacio la L>. 
340 Si <L es igual a 4, es decir, las 4 ci- 
fras est6n en su lugar, se salta a la linea 370. 
350 Si N) es igual a 10 hemos agota- 
do todas las tentativas y la ejecuci6n salta ala 
linea 380. 
360 Se retorna a la 220 para continuar 
averiguando el c6digo. 
370 Escritura en pantalla de un mensaje 
de felicitaci6n par el acierto. 
380 Aparece en pantalla el c6digo se- 
creto. 
390 Cuando se pulse una tecla se vuelve 
a ejecutar el programa. 
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Inf.orm  t  c. 
° resenta: la tableta gra  ca 

GRAFPAD II- 
LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GR, FICOS 
PARA AMSTRAD, COMMODORE Y BBC 
La primera {ableta gfica, de bajo costo, en ofrecer la durad6n y prestaciones requeridas por las 
aplicaciones de negodos, industria, hogar y educaci6n. Es pequefia, exacta y segura. No necesita 
ajustes ni mantenimiento prevenfivo. GRAFPAD II es un producto tinico que pone la potencia de 
la tecnologia modema bajo el control del usuario. 

DIBUJO A MAN'O ALZADA 
SOF'PA'ARE DE ICONOS 

.;'£{,,, Dec 
. ,1 g,/'4 .... 1 .......... 
DISEO DE ARQUITECTURA 
CON SOFTWARE DDX 

ESPECIFICACIONES 
RESOLUCION: 
1.280 x 1.024 pixels. 
PRECISION: 
1 pixel. 
TASA DE SALIDA: 
2.000 pares de coordenadas pot 
segundo. 
INTERFACE: 
paralelo. 
ORIGEN: 
borde superior izquierdo o 
seleccionable. 
DIMENSIONES: 
350x 260x 12 mm. 
DISPONIBLE AMSTRAD: 
CASSETIE .... 23.900 ptas. 
DISCO ............ 25.900 ptas. 
(IVA NO INCLUIDO) 
• ACIL DE USAR. 
• RAZADO PCB. 
• .A.D. 
• • REA DE DISEO DIN A4. 
• el LOR EN ALTA 
' ESOLUCION. 
• SO EN HOGAR Y 
NEGOCIOS. 
• ARIEDAD DE PROGRAM'. 
DISPONIBLES. 
• DIBUJO A MANO ALZADA. 
• DIAGRAMAS DE CIRCUITO 

DE VENTA EN LOS MEJORES COMLRCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener la tableta gr,ifica, puede 
drigirsc a: 

Ofites 
Informfitica 

Av, .. 19 ,"1 II, 16.4P 
Tels. 455544 - 455533 
T61ex 36698 
20011 SAN SEBASTIAN 

CONDI 

' 
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Presenta: 

Inform  tica 

el l  pi al que gum decir 
mientras nuestros competidores dicen no 
UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES 

.UNICO MENU-DE PANTALLA 
ARRASTRE OKIETOS PANTALLA 
TRASLADO OKIETOS PANTALLA 
TRASLADO DE CURSOR 
CAJAS ELASTICAS 
LINEA ELASTICA 
TRIANGULO ELASTICO 
ELIPSE ELASTICO , 

DIAMANTE ELASTICO 

POLIGONO ELASTICO 

HEXAGONO ELASTICO 

OCI'OGONO ELASTICO 
CUBO ELASTICO 
PIRAMIDE ELASTICA 
CIRCUNFERENCIAS 
CIRCULOS RELLENOS 
CAJAS RELLENAS 
ELIPSES RELLENAS 

CUNAS 
SIMULADOR DE CORTES 

DISENO DE ZOOM 
FONDO DE REFERENCIA 
REJILLA DE FONDO 

OPCION DISPLAY X, Y 
RELLENADO CON COLOR 

ESP . OTROS 

S[ I SI ! 
sI [ sl I 
SI i NO ' 
SI NO 
SI I 

$1 

sI I NO 
I s NO I 
I Sl NO I .. 
SI NO '  
SI NO I " -- 
I s Sl 
SI NO I 
I SI I r4o 
SI NO 
s No 8 
st Sl ' 
s !ro 
SI I NO 
SI ! NO 
1  SI 

S! NO 
SI NO 
SI 
"I NO 
) SI NO 
1 NO 
gl SI 
SI NO 
SI ? 

DISP I • : .'- ', ',. 
CPC 464 CASSETTE ...................... ' .900 Ptas. 
CPC 464-664 DISCO ...................... 6.900 Plas. 
CPC" 6128 DIS" I .............. 6.900 Ptas. 
:IV no induido) 
tl d l  I NES ESPECI' LES PARA DISTRIBUIDORES 

ESTOS SO 
ALGUNOS EJEMPLOS 
DE LOS 6RAFICOS QUE VD. 
PODRA REALIZAR CON NUESTRO 

LAPIZ OPTICO 

DE VENTA EN LOS MEJORES OM ' ¢ OS 
DE INFORMATICA 
Si Vd. tiene alguna dificultad para oblener el Upiz 6ptico. 
puede dirigirse a: 
Avda. Isabel II, 16 
Ofites Te,,.,,,- 
Informtica Tex 
20011 SAN SEBASTIAN 



Las cadenas literales son las variables cuyo 
nombre termina con el signo del d61ar($) y que 
pueden estar formadas por letras, n6meros, 
signos de puntuaci6n y espocios todo ello, 
englobado en un solo nombre. 

os caracteres que 
forman la cadena van entre comillas, 
puesto que son los delimitadores que 
sealan el principio y el final de la 
misma. 
Cuando la variable est formada 
por cifras no debe olvidar que se tra- 
ta de literales y no se pueden reali- 
zar c61culos aritm6ticos con elias o 
nos dar6 un error de incongruencia 
de tipos (type mismatch). 
Sin embargo, podemos unir o 
concatenar cadenas utilizando el 
signo de sumar (+) y as[ formar una 
tercera diferente. Teclee: 
primeroS = primero 
segundoS = segundo 
unidos$ = primeroS + se.qundoS 
PRINT unidoS - 
Vamos aver gr6ficamente la dife- 
rencia existente entre sumar nOmeros 
o.cadenas y compruebe Io que le de- 
clmos: 
PRINT 2+2 
da como resultado una cifra, mien- 
tras que: 
PRINT 2 + 2 
nos devuelve una cadena concatena- 
da. De modo queen el caso de las 
variables literales el signo + se lee 
unir no sumar. 
El programa I es un ejemplo de 
uni6n de cadenas, preste atenci6n a 
la linea 70, es donde se realiza la 
concatenaci6n. 

Programa uno 

Si ha ejecutado el ejemplo, habr6 
notado que las comillas no aparecen 
en pantalla. Como dijimos son limi- 
tadores, no forman parte de la ca- 
dena. De modo que si queremos que 
nos aparezcan debemos ingeni6r- 
noslas de alguna manera para ha- 

lO RFN PROGRAMA I 
20 CLS 
30 asterimco$="*" 
40 FOR fila=1 TO 10 
50 LOCATE 11-film,film 
60 PRINT asterisco$ 
70 asterisco$=asteico$+"*" 
80 NEXT film 

cerlo. Pero antes de nada vamos a 
acercarnos a Io que se llama c6digo 
ASCII. 
Como probablemente ya sabe su 
Amstrd trabaja a base de nOmeros. 
Absolutamente todos los caracteres 
tienen su c6digo numrico corres- 
pondiente y todos ellos estn recapi- 
tulados en el Ap6ndice III del Manual 
del Usuario. Pero entre nosotros no 
nos comunicamos num6ricamente, 
por Io tanto para entendernos con el 
ordenador necesitamos una senten- 
cia que convierta el c6digo num6ri- 
co en un simbolo. Se trata de CHR$. 
Valo con: 
PRINT 
CH RS (7 I)CH R $ (65)CH R$ (84)CH R- 
5(79) 
y de paso comprender6 por qu se 
lJaman cadenas. 
De modo que gracias aJ c6cfigo 
ASCII y la funci6n CHR$ podemos 
crear cualquier tipo de cadena for- 

mada por toda clase de signos como 
deciamos en un principio. 
Podemos librarnos de la necesidad 
de tener que mirar en una tabla el 
c6digo ASCII de un car6cter utilizan- 
do la funci6n ASC que realiza justa- 
mente el camino contrario: coge un 
car6cter y nos devuelve su c6digo, 
PRINT ASC(G) 
PRINT ASC(A) 
PRINT ASC(T) 
PRINT ASC(O) 
lo demuestra. ASC es capaz de tra- 
bajar con cadenas y de diferenciar- 
las de las cifras, pero s61o nos de- 
vuelve el primer carcter, ignoran- 
do el resto. Pru6belo con PRINT 
ASC(GATO). 
Pero ASC es algo m6s que un me- 
dio r6pido para encontrar un c6di- 
go ASCII. Puede utilizarse para de- 
purar datos, detectando los c6digos 
errores del usuario como Io demues- 
tra el Programa II. 

Prograrna dos 

Aqui se aceptan solamente las le- 
tras maygsculas, de ello se encarga 
la linea 40 que revisa el valor ASCII 
de entrada$. Si 6sta fuera del ran- 
go 65-90 (correspondiente alas ma- 
yOsculas) Io seala como un error, y 
s61o se ejecuta el programa hasta el 
final cuando el dato est6 en el mar- 
gen sealado anteriormente, es de- 
cir, cuando introducimos una letra 
may0scula. 

10 REM PROGRAMA If 
20 PRINT "Teclem una letrm mayuscul 
30 INPUT entrada$ 
40 IF ASC(entrada$<65 OR ASC(entra 
da$)>90 THEN OLS:PRINT "He dicho un 
a letra mayuscula":PRINT:GOTO 20 
50 PRINT "Bien hecho!" 

• Sin embargo, un error como con- 
fundir una maygscula con una minos- 
cula es perfectamente humano v 
puede volvernos Iocos cuando 1 
Amstrad Io rechace. El Program III 
demuestra c6mo ASC permite a 
nuestro ordenador corregir errores 
humanos. La linea 60 comprueba si 
se trata de una letra, ya sea may0s- 
cula o min0scula. 

32 zcRoo AMSTRAD 



Programa tres 

Una vez superado positivamente 
el filtrado, la linea 80 comprueba si 
se trata de una mingscula, caso de 
ser asi --su c6digo es mayor que 
90-- resta 32 para pasarlo al grupo 
de las mayOsculas. 
Pero ASC no es el Onico medio de 

ciones afecta a los signos ni a los nO- 
meros. 
Compare el Programa IV con el 
anterior y observar la economia 
que supone el uso de esfas nuevas 
funciones. 

Programa cuatro 

10 REN PROGRAMA Ill 
20 PRINT "Teclee una letra "; 
30 INPUT entrada$ 
40 asci-ASC(entrada$) 
50 REM Comprueba si Ia entrada esta 
dentro del tango de las letras 
&O IF asczz<&5 OR asclz>122 OR <asc 
ii>90 AND ascii<97) GOTO 20 
70 REM Si es minuscula, la transfor 
ma en mayuscula 
80 IF ascii>90 THEN ascap-ascii-32 
90 entrad$=CHR$(ascii) 
I00 PRINT entrada$ 

Vamos aver de cerca los c6digos 
ASCII 0 a 31, ya que no imprimen ca- 
racteres cuando se usan con CHR$, 
sino que se trata de c6digos de con- 
trol que influyen en el micro. Todos 
est6n en el capitulo IX del Manual, 
pru6belos. AI igual que todos los an- 
teriores, pueden concatenarse a una 
codena normal. 

solventar este problema, hay dos 
funciones que facilitan el trabajo. Si 
aadimos UPPERS a las cadenas, to- 
das las letras minOsculas pasar6n 
automticamente a mayOsculas, 
mientras que la funci6n LOWERS ha- 
r6 justamente Io contrario. Por suo 
puesto que ninguna de las dos fun- 

10 REM PROGRAMA IV 
20 PRINT "Teclee una letra "; 
30 INPUT entada$ 
40 ascz ASC(entrada$) 
50 REM Comprueba si la entrada esta 
dentro del tango de las letras 
60 IF ascii<b5 OR sci>122 OR (asc 
11>90 AND ascii<?7> GOTO 20 
70 PRINT UPPER$<entrad$) 

Prirneros 
repasos 

Antes de dejar CHRS intente esto: 
cosaS = CH RS(34) + GATO + CH- 
R$(34) 
y se resolver6 aquella cuesti6n que 
se nos plante6 al principio de que se 
nos visualizaran los comillas. 
Para terminar vamos a dejar plan- 
teado un problema que a primera 
vista puede parecer tonto. En cual- 
quier momento podemos necesitar 
conocer la Iongitud de una variable 
literal que puede haber estado cam- 
biando todo el tiempo durante la eje- 
cuci6n del programa, de modo que 
nos ser6 dificil determinar en un mo- 
mento dado el nOmero de caracte- 
res que contiene. 
La funci6n que nos va a solucionar 

I0 REM PROGRAMA V 
20 entada$ "" 
30 WHILE LEN<entrada$)<>4 
40 PRINT "Teclee una palabra de cua 
fro letras "; 
50 INPUT entrada$ 
60 WEND 
70 PRINT entrada$ 

el problema es LEN, su uso es muy 
sencillo: PRINT LEN (nombre de la 
variable,s) nos da la Iongitud de la 
misma. Pero tiene un par de casos 
muy interesantes: 
Recuerde que los espacios vacios 
cuentan como un car6cter, compru6- 
belo con: 

PRINT LEN 

Y podemos definir una cadena nu- 
la, que no contenga ningOn carcter 
--nulo$=,. Para qu queremos 
una cadena nu]a?. Puede sernos muy 
Otil como condici6n de control de un 
bucle WHILE... WEND, como Io de- 
muestra el Programa V donde LEN 
funciona como un depurador que 
controla la correcta Iongitud de la 
palabra tecleada. 

m/ctOeOY AMSTRAD 33 



• JUEG' EL JUEGO DELQUE TODOS HAEIL' 

l',. i6 , te 

i" 

4 
,t 

0 .... IALLY :- DOR5 , 
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Son los 21'15 bores del 16 de Mayo. Un bombardero LancaSter en welo especial, despega de lnglaterra acia Alemama. Despues .e meses 
de preparaci6n, el escuadrn 617 vuelden ua opezacbn deslinada a carriar el curso de la II Guerra Mu.ndial. Su objel/vo es deslz las 
ms imporlantes presas alemanas para paralizar los puntos vitales de sus fbficas de armamento. 
Este detallado y autnSco simulador te perrnite ocupaz ios puestos de: Piloto, lngeiero de 'elo, dillelo deliezo y ,-e , 
Bombzdelo y Nacelle. Volar(s a tavs del Canal de ]a Man'ha y Europa intentando evitar a los temibles ME-110 alemanes zeppe- 
lines, f..- .. 0 .'. : -os y to,los los dem(s peligros a los que se enfrent el comando 

PIDE ESTOS PROGRAMAS A ERBE. SANTA ENGRACIA,, 7, 28010 MADRIli TFN, (91i 447 34 I0 - EH LAS MEJORES 
TI NDAS DE INFORMATICA TIENDAS Y MAYORISTAS.. COMPLIMENTAMOS SUS PEDIDOS EN 24 HORAS 



ANTA 64K.3 
Los 64K de memoria que esperaba su Amstrad 
Ampliaci(n de memoria, buffer de impresora y ram disk* ° 

ANTA 64k.3 

UHT Irtgenloro, 

MAOE IN SPAIN 
---, ....... : .... :...: .... 

Si tiene un AMSTRAD 
CPC 464, CPC 664 o 
CPC 6128 con6ctele el 
ANTA 64K.3 y seleccione 
la opci6n que necesite: 

64K de Memoria 

Para leer y escribir dates, 
cadenas y bloques de ca- 
racteres, asi come copiar 
o trasladar pantallas. 
64K de Buffer de 
Impresora 

Permite seguir trabajando 

con el ordenador mientras 
la impresora funciona. 

64K de Ram 
Disk/Basic 

La memoria simula el fun- 
cionamiento de un dis- 
co con mejor tiempo de 
acceso. 

*Software de manejo con. 
tenido en ROM. 

T i .." ,=r. : 

01STRIBUIDO PeR LSB, S.A. Cl. SANCHEZ PACHECO, 78. 28002 MADRID. TEL. 4139268 
Le esperam.s or) nuestros stands 9 y 10 de la 17 Feria Amstracl, desde el23 al25 de Mayo 



POR LA COMPRA DE TU ORDENADOR ESTE EQUIPO COMPLETO DE BASKET ES TUYO. 
TAMBIEN REGALO DE INTERFACE 2 Y UN JOYSTICK AL COMPRAR TU SPECTRUM 128 O PLUS 

Como siempre curso gratis de informtica. 
Spectrum, Q.L., Commodore, Amstrad, Spectrav[deo 
y MSX. 
Teclado multifunci6n con sonido, 13.200 ptas. 
Joystick + Interface + Kempston, 3.200 ptas. 
L,piz Optico, 3.500 ptas. 
Bibliografia 25 por 100 Dto. 
Tarjeta de Socio Club Sinclair Store. 

Servicio Tecnico de Reparaciones, 3.700 ptas. 
Necesitamos distribuidores, somos mayoristas. 
Ampliaci6n de memoria Amstrad 464 6 6128 256 K, 
20.900 ptas. 
Disco de Silicio, 19.900 ptas. 
Por la compra de un spectravideo, 328, 25.000 ptas. o 
spectravideo 728 MSX, 39.000 ptas. Te regalamos un 
Joystick Quickshot I ms 10 cintas y un cassette. 

Ademas entre todos nuestros clientes, sorteamos diez lores de entradas para la final del Mun- 
dial de Basket 86. 

50M05 PROFESIONAL 5 
BRAVO MURILL0, 2 DIEGO DE LEON, 25 AV. FELIPE I1. 12 
(Glorieta de Quevede) (Esq. Nez de Balboa) (Metro Goya) 
Tel. 4466231 • 28015 MADRID Tel. 261 8801 . 28006 MADRID Tel. 431 3233 - 289 MADRID 
Aparcamiento GRATUITO Magallanes, 1 Aparcamieto GRATUITO N6ez de Balboa, 114 Aparcamiento GRATUITO Av. Felipe II 



